DISCLAIMER  NOTICE 


THIS  DOCUMENT  IS  BEST  QUALITY 
PRACTICABLE.  THE  COPY  FURNISHED 
TO  DDC  CONTAINED  A SIGNIFICANT 
NUMBER  OF  PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


nnn  . " '*  AG  AO  62  9 39 

UUC  FILE  COPY 


i 


Microprocessor  Control 
of  the 

Blood  Flow  Plethysmograph 


DISTRIBUTION  STATEMENT  A 

Approved  lor  public  release; 
Distribution  Unlimited 


UNCLASSIFIED 

SECURITY  CLASSIFICATION  OF  THIS  PAGE  (Whan  Data  Enltrtd) 

^ REPORT  DOCUMENTATION  PAGE  before^ompletogtorm 

L REPORT  NUMBER  \l.  COVT  ACCESSION  NO.  3-  RECIPIENT'S  CATALOG  NUMBER 


I.  REPORT  NUMBER 


-TITLE  (and  Submit) 


Microprocessor  Control  of  the 
Blood  Flow  Plethysmograph  , 


/■'o, 

(? 


k-AUTHOR  (a) 


« /SEIBERLING  , 


US  Army 

9-  PERFORMING  ORGANIZATl^^TC^VrnvrDDRESS  ’ 

Student , HQDA ^TIJERCENj|DAPC-OPP-E)  , 

200  Stovall  Street,  Alexandria,  VA  22332 

11.  CONTROLLING  OFFICE  NAME  AND  AOORESS 

HQDA,  MILPERCEN,  ATTNj  DAPC-OPP-E, 

200  Stovall  Street,  Alexandria,  VA  22332 


5..  TYPE  of  report  ft  aiamn  COVERED 

f Final  [5  DEC  78 

U.  PEWTURMIRU  URb/'WfVORT  NUMBER 


8.  CONTRACT  OR  GRANT  NUMBERS 


10.  PROGRAM  ELEMENT.  PROJECT,  TASK 
AREA  8 WORK  UNIT  NUMBERS 


Hi  I5  1)ec 


MONITORING  AGENCY 


3DRESS<f/  dl  tit  rant  from  Controlling  Olllct)  15.  SECURITY  CLASS,  (ol  thla  raport) 

UNCLASSIFIED 


15a.  DECLASSIFICATION/DOWNGRADING 
SCHEDULE 


16.  DISTRIBUTION  STATEMENT  (ol  thla  Raport) 

Approved  for  public  release;  distribution  unlimited. 


|17.  DISTRIBUTION  STATEMENT  (of  the  mbetrect  entered  In  Block  20,  II  different  from  Report) 


IS.  SUPPLEMENTARY  NOTES 


Thesis,  University  of  Akron,  Akron,  Ohio 


1 19.  KEY  WORDS  ( Continue  on  rereree  elde  If  neceeemry  end  Identity  by  block  number) 


Microprocessor,  Control,  Blood  Flow,  Plethysmograph,  Intel  SBC  80/i0, 
Floating-point  arithmetic,  8080  Microprocessor,  Block  Structured 
Assembly  Language  (BSAL),  Single  Board  Computer 


1 2Q*»  ABSTRACT  (Centbeue  on  rvvtrw  etde  If  nnoeoeery  mod  Identify  by  block  number) 


The  Blood  Flow  Plethysmograph,  an  instrument  to  measure  blood  flow  through 
non-invasive  techniques,  is  automated  with  an  Intel  SBC  80/10  single  board 
computer.  The  automated  system  provides  a real-time  output  capability, 
reduces  operator's  error,  and  improves  the  accuracy  of  the  measurement. 


00,^1473  EDITION  OF  I NOV  «S  IS  OBSOLETE 


UNCLASSIFIED  / r/J- 

SECURITY  CLASSIFICATION  OF  THIS  PAGE  (Whan  Data  Entari 


| 


Microprocessor  Control  of  the  Blood  Flow  Plethysmograph 


Captain  Walter  E.  Seiberling 

HQDA,  MILPERCEN  (DAPC-OPP-E) 
200  Stovall  Street 
Alexandria,  VA  22332 


Final  Report 
14  December  1978 


Approved  For  Public  Release; 
Distribution  Unlimited. 


A Thesis  Submitted  to 


The  University  of  Akron,  Akron,  Ohio 
in  Partial  Fulfillment  of  the  Requirements  for  the  Degree 


Microprocessor  Control 
of  the 

Blood  Flow  Plethysmograph 


A Thesis 
Presented  To 

The  Graduate  Faculty  of  the  University  of  Akron 


In  Partial  Fulfillment 
of  the  Requirements  for  the  Degree 
Master  of  Science 


Walter  E.  Seiberling 
May,  1979 


- 


J 


Microprocessor  Control 
of  the 


Blood  Flow  Plethysmograph 


Walter  E.  Seiberling 


Thesis 


Faculty  Reader 


Accepted : 


(hn« 

Dean  of  the  Colleg^ 

rl  At. 

Dean  of  the  Graduate  School 


?9  Ol  02  045 


TABLE  OF  CONTENTS 


CHAPTER  PAGE 

I.  INTRODUCTION  . 1 

Background  1 

Statement  of  the  Problem  2 

Method  of  Implementation  2 


II.  BACKGROUND  OF  THE  BLOOD  FLOW  PLETHYSMOGRAPH 

Theory  of  Operation  

Electrical  Design 

III.  CONSIDERATIONS  OF  DESIGN  

Initial  Observations  

Equipment  Availability  

Input/Output  

Operational  Description 

IV.  HARDWARE  DESIGN  

Slope  Computer  Modifications  

Microprocessor  Interface  

V.  SOFTWARE  DESIGN  

Data  Storage  

Interrupt  Handler  

Floating  Point  Programs  


3 

3 

6 

10 

11 

18 

19 

23 

27 

27 

31 

41 

41 

44 

47 


Utility  Programs  50 

VI.  OPERATION  OF  THE  SYSTEM  51 

VII.  SUMMARY  55 


TABLE  OF  CONTENTS 


(continued) 


PAGE 


REFERENCES  56 

APPENDICES  57 

A.  Interconnection  Tables  57 

B.  Linked  Listing  66 

C.  Interrupt  Handler  Program  69 

D.  Floating  Point  Programs ■••«•«••••••••••••  9^ 

E.  Utility  Programs  116 


I 


- 


LIST  OF  TABLES 

TABLE  PAGE 

I.  Parallel  Input  Ports  1,  2 and  3 21 

II.  Parallel  Input  Ports  4,  5 and  6 22 

III.  Error  Messages  54 

IV.  J-4  Pin  Connections  58 

V.  J-5  Pin  Connections  59 

VI.  Slope  Computer  Interconnection,  Card  5 60 

VII.  Slope  Computer  Interconnection,  Card  6 61 

VIII.  Slope  Computer  Interconnection,  Card  7 62 

IX.  SBC  80/10  and  B-board  Interconnection 63 


vi 


LIST  OF  FIGURES 


FIGURE 

1.  Plethysmograph  Timing  

2.  Plethysmograph  Block  Diagram  

3.  Printer  Format  

4.  Calibration  Difference  Readings,  Run  1 .... 

5.  First  Calibration  Readings,  Run  1 

6.  Calibration  Difference  Readings,  Run  4 .... 

7.  First  Calibration  Readings,  Run  4 

8.  Circumference  Difference  Readings,  Run  4 .. 

9.  Block  Diagram  of  Microprocessor  Interface  . 

10.  Schematic  of  Card  5»  Slope  Computer  

11.  Schematic  of  Card  6,  Slope  Computer  

12.  Schematic  of  Card  7,  Slope  Computer  

13.  Layout  of  B-board  

14.  Memory  Mapped  Decoders,  B-board  

15.  Keyboard  Input  Section,  B-board  

16.  Digital  Panel  Printer  Output  Ports,  B-board 

17.  Timer  Section,  B-board  

18.  Difference  Data  Storage  Format  

19 . Main  Program  Flow  Chart  ................... 

20 . Interrupt  Handler  Flow  Chart  

21.  Floating  Point  Number  Format  .............. 

22.  Output  Sequence  


PAGE 

4 

7 

9 

13 

14 

15 

16 
17 
24 
28 

29 

30 
32 

34 

36 

38 

39 
43 

45 

46 
49 
53 


vii 


J 

CHAPTER  I 
INTRODUCTION 

Background 

One  method  of  detecting  cardio-vascular  disease  is  by  the 
amount  of  blood  flow  throughout  the  circulatory  system.  The  blood 
flow  plethysmograph,  developed  by  the  Institute  of  Environmental 
Stress,  measures  this  blood  flow  to  an  isolated  limb. 

The  blood  flow  is  measured  non-invasively  by  occluding  the 
venous  flow.  A mercury  strain  gauge  is  then  used  to  detect  the  change 
in  limb  circumference.  An  operational  amplifier  network  provides  bridge 
isolation  and  signal  conditioning.  This  information  is  then  converted 
to  digital  information  by  a digital  panel  meter.  The  system  contains 
two  of  these  channels.  The  digital  information  from  the  panel  meters 
is  then  multiplexed  into  a single  digital  panel  printer  to  provide 
output.  Changes  in  the  limb  circumference  are  then  compared  to  a 
known  calibrated  percentage  of  elongation  in  the  strain  gauge.  An 
algorithm  is  then  used  to  calculate  the  blood  flow  in  terms  of  milli- 
liters per  minute  per  100  milliliters  of  tissue. 

The  plethysmograph  uses  an  intricate  asynchronous  logic  network 

) 

for  the  timing  and  control  of  the  system  operations.  The  actual  blood 
flow  is  derived  by  applying  the  average  of  a series  of  measurements  of 
the  differential  increases  in  circumference,  along  with  the  average 
of  a series  of  calibration  readings  to  an  algorithm.  The  original 
system  outputs  individual  calibration  and  size  increase  information  on 
a panel  printer.  The  differences  of  these  readings  were  then  averaged 

» i 
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manually.  Other  information  such  as  the  length  of  time  intervals, 
gauge  lengths  and  limb  size  were  noted  manually.  All  this  information 
was  later  analyzed  and  applied  to  the  algorithm  to  find  the  blood  flow. 
Statement  of  the  Problem 

The  problem  was  to  include  an  on-board  microprocessor  interface 
to  the  system.  The  goal  is  to  provide  the  capability  of  quickly 
assimilating  the  data,  obtaining  the  remaining  parameters  as  necessary 
and  providing  the  operator  with  immediate  blood  flow  information. 

Method  of  Implementation 

The  system  was  interfaced  with  an  Intel  SBC  80/10  single  board 
computer.  The  microprocessor  interface  was  designed  to  require  only 
minimal  modification  of  the  plethysmograph.  Peripherals  were  added  to 
the  SBC  80/10  to  measure  time  intervals,  to  provide  keyboard  inputs  and 
to  output  control  information  and  data  to  the  plethysmograph. 


CHAPTER  II 


THE  BLOOD  FLOW  PLETHYSMOGRAPH 
Theory  of  Operation 

The  operation  of  the  plethysmograph  is  described  in  detail 
in  the  User's  Manual*.  A brief  summary  is  necessary  to  the  under- 
standing of  this  work  and  will  be  included  for  this  purpose. 

The  method  of  obtaining  blood  flow  is  by  occluding  the  venous 
blood  flow.  This  is  accomplished  with  an  inflatable  cuff.  In  the 
beginning  the  system  waits  a period  of  time  (2.5  sec. -first  period) 
for  stability  of  the  time  rate  of  change  in  the  circumference.  At  the 
end  of  this  first  period  a reading  of  arm  size  is  taken  (Figure  l), 
using  the  strain  gauge,  bridge  and  operational  amplifier  network.  A 
second  reading  of  arm  size  is  taken  again  at  the  end  of  the  second 
delay.  Each  reading  is  printed  as  it  is  taken.  The  inflatable  cuff  is 
then  deflated  and  the  limb  is  allowed  to  return  to  normal.  At  this  time 
a reading  counter  number  indicating  the  first  measurement  is  printed. 

This  cycle  is  then  repeated  a number  of  times  to  obtain  adequate  samples 
of  the  measurements. 

Since  only  the  relative  amount  that  the  strain  gauge  stretched 
is  known,  the  plethysmograph  has  a built  in  calibration  circuit  which 
simulates  either  a 0.2  percent  or  1.0  percent  stretch  of  the  strain  gauge. 
The  calibration  reading  provides  a standard  of  comparison.  This  is 
accomplished  by  temporarily  removing  resistors  in  the  opposite  leg  of 
the  bridge  network.  Readings  are  taken  before  and  after  the  resistance 
is  removed  from  the  circuit.  We  then  are  able  to  tell  the  effect  of 
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Figure  1 - Plethysmoeraph  Timing 
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either  a 0.2  or  1.0  percent  elongation  of  the  strain  gauge  on  the 
circuit.  These  readings  are  taken  before  and  after  the  blood  flow 
readings  and  are  also  output  on  the  digital  panel  printer. 

The  plethysmograph  is  a two  channel  system.  It  can  measure 
the  blood  flow  in  two  limbs  simultaneously.  All  output  readings,  such 
as  calibration  and  limb  circumference,  are  provided  as  signed  integer 
data  in  the  range  + 1999.  The  digital  panel  printer  has  two  additional 
leading  numbers  which  identify  the  channel  number  and  the  type  of 
reading. 

Other  information  necessary  to  the  final  computation  of  the  blood 
flow  is  the  period  of  the  second  delay,  the  length  of  the  strain  gauge 
and  the  circumference  of  the  arm  where  the  strain  gauge  is  placed.  The 
measurements  are  taken  directly  by  the  operator  with  a steel  tape.  The 
time  of  the  second  delay  may  be  adjusted  as  necessary  and  read  from  the 
plethysmograph  front  panel  controls. 

All  of  the  above  data  is  then  applied  to  the  following  algorithm^ 
to  determine  the  blood  flow  per  100  milliliters  of  tissue. 

Blood  Flow  = 120  (RDG2  - RDGl)  (Factor)  (Lg)  milliliters 

(CAL2  - CALI)  (C.)  (T  ) minute 

1 s 

RDGl  - reading  at  start  of  second  delay 

RDG2  - reading  at  end  of  second  delay 

CALI  - first  calibration  reading 

CAL2  - second  (stretched)  calibration  reading 

Factor  - percent  calibration  (0.2$  or  1.0^) 

Lg  - length  of  strain  gauge 

- circumference  of  arm  at  strain  gauge 
Tg  - period  of  second  delay 


The  plethysmograph  consists  of  three  principal  units  (cuff 
inflator,  dual  plethysmograph  and  slope  computer)  mounted  in  a 
single  19  inch  rack  (Figure  2). 

The  cuff  inflator  provides  the  overall  timing  cycle  to  the 
system.  This  unit  controls  when  the  cuff  inflates  and  starts  a 
series  of  limb  circumference  readings.  Also  included  are  the  pressure 
valves  for  turning  on  and  controlling  the  cuff  inflation  pressure. 

The  dual  plethysmograph  contains  the  analog  circuitry  and 
calibration  logic  for  the  unit.  Included  in  the  analog  circuit  are 
gain  and  balance  controls  for  each  channel.  These  are  adjusted  such 
that  readings  are  within  the  range  of  the  analog-to  digital  (A/D) 
converters  of  the  digital  panel  meters. 

The  slope  computer  is  the  heart  of  the  system.  It  contains 
the  main  control  logic,  the  digital  panel  meters,  digital  multiplexers 
and  the  digital  panel  printer.  The  signals  needed  for  interface  with 
the  microprocessor  are  available  in  this  unit. 

When  limb  circumference  measurements  are  being  taken,  the 
following  sequence  is  initialed  in  the  plethysmograph.  The  timing 
modules  in  the  slope  computer  are  prompted  by  the  cuff  inflator  and 
timer.  Trigger  pulses  from  the  slope  computer  timers  are  output  to  the 
controller  and  digital  panel  meters  at  the  start  and  end  of  the  second 
delay  period.  This  initiates  the  analog  to  digital  (A/D)  conversion. 

When  the  A/D  conversion  is  complete  and  the  digital  panel  meter  has 
valid  output  data,  the  status  signal  notifies  the  controller.  Data  over 
or  under  the  range  of  the  A/D  converter  is  indicated  by  the  overload  line. 


Figure  2 - Plethysmograph  Block  Diagram' 
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As  long  as  the  digital  panel  printer  is  free,  the  controller  selects 
the  multiplexer  and  issues  a print  command  to  the  digital  panel 
printer.  The  digital  panel  printer  then  responds  with  a busy  signal 
until  the  printing  is  complete. 

Since  two  channels  may  be  operated  simultaneously,  the  order 
in  which  data  is  printed  is  dependent  upon  the  order  in  which  the 
trigger  pulses  from  each  channel  are  received  by  the  controller.  The 
output  data  format  is  described  in  figure  3.  The  run  counter  number 
is  printed  sequentially  at  the  end  of  each  cuff  inflation  cycle.  Unlike 
the  data  printing,  the  run  counter  uses  negative  true  polarity  and 
thereby  signals  the  end  of  each  cuff  inflation  cycle. 

Another  aspect  which  is  critical  to  the  printer  is  that  of 
timing.  The  data  must  be  valid  at  the  input  for  0.5  microsecond  prior 
to  issuing  the  print  command.  The  print  command  must  remain  valid  for 
between  one  microsecond  and  200  milliseconds.  The  printer  then  remains 
busy  for  approximately  330  milliseconds.  The  busy  line  remains  active 
during  this  time. 
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Data 


BCD  Reading  ( 0 


BCD  Reading 


or  1 only) 


I Sign  (one  bit) 


Type  of  Reading 
(BCD) 


{0  limb  circumference 

8 1st  calibration  reading 
1 2nd  calibration  reading( 1 . 0%) 
.2  2nd  calibration  reading(0.2%) 


Lr—  Channel  Identification  (BCD) 


Note:  Six  decimal  points  are  available  (six  bits) . 
Only  one  is  used  for  0.2%  calibration. 


Run  Counter 


1 2 

blank 

u. 

_ BCD  Run  Count 

Figure  3 - Printer  Output  Format^ 


CHAPTER  III 


CONSIDERATIONS  OF  DESIGN 

There  are  a number  of  considerations  that  went  into  the 
integration  of  a microprocessor  into  the  plethysmograph.  Of  principal 
importance  were  cost,  and  the  need  to  keep  the  system  in  one  19  inch 
rack.  The  system,  of  course,  must  remain  somewhat  mobile  to  allow 
flexibility  for  making  blood  flow  measurements  throughout  a medical 
facility.  These  two  requirements  dictate  the  use  of  the  printer  available 
in  the  plethysmograph  rather  than  a CRT  terminal.  Since  the  amount  of 
manual  input  and  output  would  remain  minimal,  this  posed  little  problem. 

The  blood  flow  plethysmograph  is  a prototype  system  and  needs 
to  be  evaluated  clinically.  The  avoid  any  problems  with  the  evaluation 
of  the  system  as  it  existed,  the  circuitry  was  disturbed  as  little  as 
possible.  Changes  were  made  only  to  tap  off  digital  signals  and  some 
key  timing  information. 

The  plethysmograph  requires  manual  adjustment  of  balance  and 
gain  settings  prior  to  operation.  It  was  suggested  that  these  might 
possibly  be  automated  and  therefore  reduce  the  operator  requirements. 

This  possibility  was  considered.  However,  there  were  several  indications 
that  the  manual  control  is  satisfactory.  First  of  all  it  was  found  that 
the  extreme  range  on  the  gain  and  balance  settings  were  not  really 
necessary.  During  normal  operation  a single  gain  and  balance  setting 
could  be  found  which  would  keep  the  output  within  range  on  the  digital 
panel  meters.  The  fine  balance  needed  to  be  adjusted  only  occasionally 
to  compensate  for  drift  or  other  variables.  Cost  of  implementing  an 
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automated  system  was  greater  than  the  benefit  reaped.  Secondly,  the 


readings  were  extremely  sensitive  to  tenseness  in  the  limb.  An 
automated  system  would  have  to  insure  it  did  not  overcompensate  for 
any  temporary  muscle  tenseness.  Since  the  plethysmograph  is  a 
prototype  of  limited  quantity,  there  has  been  little  data  gathered 
and  therefore  little  experience  as  to  all  the  range  of  uses  of  the 
system.  For  instance,  it  may  be  necessary  to  output  the  analog 
signal  to  a strip  chart  recorder  to  observe  linearity  of  the  circum- 
ference change.  Therefore,  for  this  reason  it  was  also  concluded 
that  the  gain  and  balance  should  remain  manual. 

Initial  Observations 

The  system  was  operated  and  the  overall  functioning  of  the 
plethysmograph  was  observed.  These  observations  were  critical  in  that 
any  system  interfacing  with  the  plethysmograph  must  take  these  factors 
into  account.  Some  of  the  major  observations  concerning  interface 
with  the  plethysmograph  follow: 

1.  The  calibration  logic  is  manually  initiated  and  is  separate 
from  the  remaining  digital  logic  in  the  plethysmograph.  It  is  therefore 
possible  for  the  calibration  and  measurement  cycles  to  interfere.  This 
can  cause  questionable  data  to  be  output.  Also,  it  is  easy  to  release 
the  calibration  button  too  soon  and  therefore  lose  the  second  calibration 
reading. 

2.  Any  tenseness  in  the  limb  would  cause  the  output  of  the  digital 
panel  meter  to  be  off  scale.  This  was  displayed  as  all  zeros  on  the 


printer,  a still  valid  reading.  It  was  therefore  necessary  to  use  the 
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3.  Several  sets  of  blood  flow  readings  were  taken  and  analyzed. 

A graph  of  the  calibration  reading  differences  is  shown  in  figure  4. 

All  difference  readings  have  been  normalized  to  a 1.0  percent 
calibration;  i.e.  0.2  percent  calibrations  readings  have  been  multi- 
plied by  five.  In  this  set  of  measurements  ten  balance  readings  were 
taken  and  then  blood  flow  readings  were  started.  Calibration  readings 
were  continued  during  the  seven  second  cuff  deflation  cycle.  There  is 
a large  variance  in  the  last  eight  readings.  It  was  determined  that 
the  calibration  reading  was  dependent  upon  the  state  of  recovery  of 
the  arm  after  the  inflation  cycle.  This  can  be  seen  by  the  large 
variance  in  first  balance  readings  taken  during  the  same  run  (figure  5)» 

Therefore,  calibration  readings  should  not  be  taken  during  the  cuff 
deflation  cycle. 

4.  Another  set  of  more  uniform  calibration  difference  readings 
are  shown  in  figure  6.  The  first  ten  were  taken  before  measuring  the 
blood  flow  and  the  remaining  after  taking  all  blood  flow  readings. 

Although  the  value  of  the  first  calibration  readings  have  changed 
(figure  7).  the  calibration  difference  readings  (figure  6)  are  consistent. 

Looking  at  the  circumference  difference  readings  for  the  same  run, 
figure  8,  they  are  not  particularly  grouped.  This  may  have  resulted 
since  the  subject  was  not  totally  relaxed.  However  this,  along  with 

the  previous  graph,  indicates  that  it  may  be  desirable  to  cull  some  of 
the  points  from  the  data.  This  would  delete  difference  readings,  which 
might  be  indicative  of  momentary  tenseness  or  movement  of  the  subject. 
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The  microprocessor  interface  to  the  plethysmograph  took  the 
above  observations  into  account.  The  software  programs  were  used  to 
insure  that  out  of  sequence  data  (1.  above)  was  not  used.  The  over- 
load condition  of  the  digital  panel  meter  (2.  above)  was  noted  along 
with  the  panel  printer  data  at  the  microprocessor  parallel  input  ports. 
The  software  programs  then  discarded  this  data. 

The  observations  of  3*  and  4.  above  indicate  that  the  physical 
status  of  the  individual  whose  blood  flow  is  measured  may  cause  discrep- 
ancies in  the  readings.  Since  a number  of  readings  are  being  taken, 
we  can  therefore  obtain  an  average  and  statistically  delete  data  well 
away  from  the  mean.  Therefore  programs  were  incorporated  to  average 
all  data,  find  the  standard  deviation,  and  delete  all  data  outside  the 
range  of  two  standard  deviations  from  the  mean.  The  resulting  data  was 
then  reaveraged. 

Equipment  Availability 

Equipment  considerations  were  necessary  from  two  standpoints: 
first,  from  an  implementation  standpoint  and  secondly,  from  the  debug 
and  testing  standpoint.  From  a combination  of  both  viewpoints  the 
Intel  SBC-80/10  was  chosen.  The  MUPR0-80  microprocessor  development 
system  was  used  for  debugging  and  software  testing. 

The  MUPR0-80,  configured  as  a single  terminal  system  with  disk 
drive  and  40  kilobytes  of  memory,  was  used  with  the  emulator  for 
software  debug  and  system  checkout  (references  2,  3 and  4).  The  system 
uses  Block  Structured  Assembly  Language  (BSAL)  as  described  in  reference 

I 

5.  Therefore,  all  programs  were  either  written  in  BSAL  or  translated  to 
BSAL  for  convenience  and  uniformity. 
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The  Intel  SBC  80/10  is  expandable  (reference  6)  leaving  room 
for  future  expansion  of  the  plethysmograph  system.  This  expansion 
capability  also  provides  the  ability  to  provide  a memory  mapped  input 
or  output  to  enhance  the  parallel  and  serial  input/output  ports.  This 
was  very  necessary  with  a system  like  the  Intel  SBC  80/10,  when  it  is 
required  to  handle  most  of  its  data  in  parallel.  This  is  the  case 
when  interfacing  with  the  plethysmograph. 

One  consideration  not  mentioned  so  far  was  the  necessity  to 
measure  the  period  of  the  second  delay  in  each  channel.  This  would  save 
the  operator  from  having  to  enter  this  information  manually.  Since  the 
Intel  SBC  80/20  includes  an  on  board  timer,  it  was  considered.  However, 
the  additional  cost  would  not  warrant  this.  A pair  of  additional 
twelve  bit  ripple  counters  with  a 60  Hertz  input  was  decided  on.  This 
would  provide  an  accuracy  of  approximately  0.5  percent  over  a period  of 
3.5  seconds.  This  is  well  below  any  error  caused  by  inconsistencies  in 
measuring  the  circumference  of  the  limb,  length  of  the  gauge,  etc. 

Input /Output 

The  manual  inputs  that  were  needed  are  the  length  of  the  strain 
gauge  and  the  circumference  of  the  arm  for  each  channel.  Therefore,  a 
sixteen  key  keyboard  plus  a reset  key  were  used  as  input  to  the  micro- 
processor. This  sixteen  key  keyboard  with  decoder  and  de bounce  circuit 
( 7^922)  was  memory  mapped  onto  the  data  bus. 

The  SBC  80/10  has  six  parallel  8-bit  ports  when  used  in  the 
input  mode.  It  was  desirable  to  use  these  ports  for  all  input  data  from 
the  plethysmograph.  The  data  from  the  twelve  bit  timers  for  each  channel 
required  the  use  of  three  of  the  parallel  input  ports  (24  bits).  Therefore 
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it  was  necessary  to  put  the  data  from  the  panel  printer  plus  the 
overload  indication  for  each  channel  into  the  remaining  three  ports. 
Since  the  decimal  point  was  not  required  as  an  input,  this  was 
deleted.  This  left  six  BCD  digits  (24  bits),  a sign  bit,  a data 
polarity  bit  and  two  overload  indicators  to  be  included  as  inputs. 

By  deleting  some  of  the  BCD  bits  which  were  unused  in  the  plethysmograph 
output,  these  28  bits  were  compressed  into  the  remaining  three  input 
ports.  The  parallel  port  input  data  was  then  arranged  as  shown  in 
tables  I and  II. 

Indications  of  inputs,  either  keyboard  or  plethysmograph  data, 
were  incorporated  using  interrupts.  Since  the  Intel  SBC  80/10  does  not 
distinguish  between  interrupting  devices,  it  was  necessary  to  provide 
this  ability.  The  sixteen  key  keyboard  encoder  only  required  four 
bits  of  the  eight  bit  data  bus.  The  interrupt  from  the  keyboard  was 
then  included  as  a fifth  bit  along  with  the  keyboard  input  on  the  data 
bus.  The  microprocessor  could  then  distinguish  between  interrupting 
devices.  This  will  be  discussed  further  in  Chapter  IV. 

The  inputs  required  all  six  bytes  of  the  parallel  input  ports. 

The  output  to  the  digital  panel  printer  required  that  any  digit,  zero 
through  nine,  could  be  printed  in  each  of  the  six  character  positions. 
The  ability  to  place  the  decimal  was  desirable.  Control  of  the  data 
polarity  was  also  necessary.  Since  six  binary  coded  decimal  digits 
(24  bits),  six  decimal  places  (6  bits),  a sign  bit  and  a data  polarity 
bit  were  necessary,  a 32  bit  bus  to  the  digital  panel  printer  was 
therefore  required. 


Port 

Bit 

Function 

Bit 

4 (E8) 

7 

Timer 

Channel 

1 

7 

6 

Timer 

Channel 

1 

6 

5 

Timer 

Channel 

1 

5 

4 

Timer 

Channel 

1 

4 

3 

Timer 

Channel 

1 

3 

2 

Timer 

Channel 

1 

2 

1 

Timer 

Channel 

1 

1 

0 

Timer 

Channel 

1 

0 

5 (E9) 

7 

Timer 

Channel 

2 

11 

6 

Timer 

Channel 

2 

10 

5 

Timer 

Channel 

2 

9 

4 

Timer 

Channel 

2 

8 

3 

Timer 

Channel 

1 

11 

2 

Timer 

Channel 

1 

10 

1 

Timer 

Channel 

1 

9 

0 

Timer 

Channel 

1 

8 

6 (EA) 

7 

Timer 

Channel 

2 

7 

6 

Timer 

Channel 

2 

6 

5 

Timer 

Channel 

2 

5 

4 

Timer 

Channel 

2 

4 

3 

Timer 

Channel 

2 

3 

2 

Timer 

Channel 

2 

2 

1 

Timer 

Channel 

2 

1 

0 

Timer 

Channel 

2 

0 

Table  II  - Parallel  Input  Ports  4,  5 and  6 
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The  slope  computer  of  the  plethysmograph  had  room  for  two 
additional  cards  which  could  be  used  to  provide  a tri-state  output  to 
the  printer  from  the  present  plethysmograph  multiplexed  panel  meter 
outputs.  The  slope  computer  with  existing  circuitry  was  only  drawing 
0.82  amperes  from  the  five  volt,  three  ampere  power  supply.  Therefore, 
the  slope  computer  power  supply  would  also  accommodate  additional 
circuitry. 

Space  within  the  slope  computer  would  not  accommodate  the  Intel 
SBC  80/10  board.  Therefore,  the  line  between  the  existing  plethysmograph 
and  the  add-on  microprocessor  was  pretty  much  established  (figure  9). 

The  SBC  80/10  uses  its  parallel  input  ports  to  read  data  from 
the  printer  bus  and  the  timers.  The  remaining  input  and  output 

J 

functions  of  the  SBC  80/10  are  achieved  through  a memory  mapped  input 
and  output.  The  keyboard  input  is  memory  mapped  directly  to  the  data 
bus.  Four  separate  eight  bit  latches  are  used  to  provide  a 32  bit 
parallel  output  to  the  printer  bus.  Each  of  these  four  latches  are 
accessed  through  a memory  mapped  output.  Once  the  data  is  latched  onto 
the  printer  bus,  a print  command  is  given  to  the  printer  from  the 
microprocessor . 

Additional  memory  mapped  outputs  are  for  control  functions 
necessary  to  control  the  plethysmograph  and  the  functions  on  the 
B-board.  These  will  be  discussed  in  detail  in  Chapter  IV,  The  above 
circuits  are  located  on  the  B-board. 

Operational  Description 

A typical  sequence  of  operation  is  initiated  by  the  micro- 
processor which  resets  the  system  and  selects  the  panel  meters  to 
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provide  input  to  the  printer  bus  (figure  9).  A print  test  (all  8's) 
is  output  on  the  printer  when  the  microprocessor  is  ready.  The 
operator  would  then  enter  the  length  of  the  gauge  and  limb  circum- 
ference on  the  keyboard  for  each  channel  which  is  being  used.  As 
each  key  is  depressed,  the  SBC  80/10  receives  an  interrupt.  The  key- 
board entry  is  stored  in  an  input  buffer  until  the  enter  key  is 
depressed.  The  data  is  then  stored  at  a specified  memory  location. 

This  data  is  also  printed  on  the  printer  as  an  entry  check  for  the 
operator . 

The  operator  then  calibrates  the  system.  As  each  calibration 
reading  is  printed  on  the  printer,  the  printer  busy  signal  initiates 
an  interrupt.  The  SBC  80/10  reads  each  calibration  reading  from  the 
printer  bus  through  the  parallel  input  ports.  After  the  second  of 
calibration  reading  is  received,  the  difference  is  found  and  this 
difference  is  stored  in  a memory  list  along  with  other  calibration 
difference  readings.  Readings  which  indicate  an  overload  are  discarded. 

Limb  circumference  readings  are  then  initiated.  These  are 
read  through  the  parallel  input  ports  like  the  calibration  data.  After 
the  second  reading  has  been  received,  the  difference  is  calculated 
and  this  circumference  difference  is  stored  in  a separate  list. 

At  the  end  of  each  cuff  inflation  cycle,  the  plethysmograph 
prints  a run  count.  When  the  microprocessor  reads  this  run  count  it 
acknowledges  the  end  of  the  cuff  inflation  cycle  by  reading  the 
timers  for  each  channel  which  presented  the  data.  These  timers  measure 
the  second  delay  period  by  using  the  trigger  pulses  from  the  plethysmograph. 
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These  time  periods  are  retained  and  averaged  later.  The  timers 
are  then  reset  awaiting  another  cuff  inflation  cycle. 

More  calibration  readings  are  taken  after  the  limb  circum- 
ference readings  are  complete.  These  are  stored  along  with  the 
calibration  difference  readings  which  were  obtained  initially. 

The  operator  then  depresses  the  calculate  blood  flow  key. 

The  microprocessor  averages  all  of  the  calibration  difference 
readings  and  finds  their  standard  deviation.  Data  outside  two 
standard  deviations  from  the  mean  are  flagged.  The  same  procedure 
is  then  accomplished  for  the  circumference  difference  readings.  A 
new  average  of  unflagged  data  is  then  obtained.  These  averages  along 
with  the  average  time  of  the  second  delay  period,  the  circumference  of 
the  limb  and  the  length  of  the  gauge  are  combined  to  yield  the  blood 
flow. 

The  microprocessor  then  outputs  a statistical  summary  of  all 
data  through  the  panel  printer.  The  specific  format  and  content  will 
be  discussed  in  detail  in  Chapter  VI. 

After  the  blood  flow  is  computed  and  output  on  the  printer, 
the  entire  system  is  reset  and  memory  is  cleared  awaiting  a new  set 
of  readings. 


CHAPTER  IV 


HARDWARE  DESIGN 


Slope  Computer  Modifications 

The  principal  modification  to  the  slope  computer  was  that  of 
providing  the  tri-state  buffering  to  the  panel  printer  and  interfacing 
control  logic  between  the  microprucessor  and  the  plethysmograph.  The 
slope  computer  contained  five  44  pin  plugboards.  The  first  four  plug- 
boards in  the  original  system  were  fairly  well  filled.  The  fifth  plug- 
board only  contained  two,  four  bit  multiplexers  (SN  74157).  Therefore, 
the  tri-state  buffers  were  added  to  this  board  (figure  10).  Two  plug- 
boards (card  6 and  card  7;  were  added  at  the  two  excess  edge 
connectors  already  within  the  slope  computer  to  provide  tri-state 
buffering  for  the  remaining  printer  data  (figures  11  and  12). 

Card  seven  (figure  12)  also  included  latching  for  the  overload 
status  of  the  digital  panel  meters.  This  is  necessary  to  insure  the 
data  remains  valid  at  the  time  the  microprocessor  reads  it.  There  are 
two  resets  on  the  plethysmograph.  One  is  to  reset  the  run  counter  and 
another  to  reset  the  whole  system  sequencing.  Card  seven  also  provides 
the  microprocessor  input  to  these  reset  commands.  The  print  commands 
are  also  ored  together  on  this  board. 

The  input  to  the  slope  computer  from  the  microprocessor  is 
accomplished  using  two  25-pin  connectors  J-4  and  J-5  (tables  IV  and  V, 
Appendix  A).  The  interconnections  from  cards  5*  6 and  7 of  the  slope 
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The  plethysmograph  modifications  were  designed  such  that  dis- 


connecting the  microprocessor  would  not  inhibit  the  plethysmograph  from 
functioning  as  it  was  previously  configured. 

Microprocessor  Interface 

The  SBC  80/10  is  wired  for  operation  as  described  in  Tables 
4-4,  4-13  and  4-24  of  reference  6.  This  places  the  system  in  Mode  0 
such  that  all  of  the  parallel  input/output  ports  accept  input  only. 

This  wiring  also  disables  the  interrupts  from  the  parallel  and  serial 
input/output  ports.  Pull-up  resistors  (1000  ohm)  were  used  at  each 
bit  of  the  parallel  input  ports.  The  SBC  80/10  is  equipped  with  four 
kilobytes  of  programmable  read  only  memory  (PROM)  and  one  kilobyte  of 
random  access  memory  (RAM).  The  PROMs  are  addressed  from  0000  hexidecimal 
through  OFFF  hexidecimal.  The  RAM  is  addressed  from  3C00  hexidecimal 
through  3FFF  hexidecimal. 

The  interface  between  the  microprocessor  and  the  modified 
plethysmograph  is  accomplished  using  a plugboard  the  same  size  as  the 
SBC  80/10.  We  will  refer  to  this  as  the  B-board  (figure  13)*  This 
board  consists  of  four  major  functional  groups;  l)  the  memory  mapped 
decoders,  2)  the  keyboard  input  section,  3)  "the  digital  panel  printer 
output  ports,  and  4)  the  timer  section.  If  required,  room  is  left  on 
the  board  for  further  memory  expansion. 

The  P-1  and  P-2  connectors  are  common  to  both  the  B-board  and 
the  80/10  board.  The  functions  are  as  described  in  reference  6.  The 
top  of  the  B-board  connects  to  a 100  pin  edge  connector  (Jl).  The  top 
of  the  SBC  80/10  board  uses  two  50  pin  edge  connectors  to  the  six 
parallel  input  ports.  A perforated  board  was  used  to  mount  and 
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interconnect  these  wire  wrap  edge  connectors  and  also  provide  the 

j 

base  for  the  two  25  pin  cables  interfacing  with  the  plethysmograph. 

The  pin  interconnections  on  this  board  are  described  in  table  IX, 
appendix  A. 

The  memory  mapped  decoders  (figure  1U)  use  two,  one  out  of 
eight  binary  decoders.  They  decode  addresses  located  above  the  highest  ! 

address  of  system  memory  ( 3FFF  hexidecimal)  and  provide  the  designated 
input  and  output  control.  The  decoder  outputs  are  active  low. 

The  first  decoder  provides  decoding  for  keyboard  inputs  and 
decoding  to  four  tri-state  buffers  for  output  to  the  parallel  digital 
panel  printer  bus.  The  keyboard  input  signal  ^.aces  the  keyboard  data 
onto  the  data  bus  when  activated.  This  is  the  same  as  reading  from 

! 1 

address  location  7800  hexidecimal.  The  first  of  the  decoded  output 
signals  selects  an  eight  bit  tri-state  buffer  to  provide  the  decimal 
point,  sign  and  data  polarity  output  to  the  printer  bus.  The  remaining 
three  decoder  outputs  select  each  of  three  other  buffers  to  output  six 
BCD  digits  to  the  printer  bus. 

The  second  decoder  is  used  to  output  control  signals.  The  clear 
keyboard  interrupt  signal  is  self-explanatory.  The  output  select 
signal  alternately  selects  either  the  SBC  80/10  or  the  digital  panel 
meters  to  provide  output  to  the  panel  printer.  The  print  and  advance 
command  from  the  memory  mapped  decoder  initiates  a print  command  to 
the  digital  panel  printer.  The  command  from  the  decoder  is  provided 
to  a monstable  multivibrator  which  widens  the  pulse  to  approximately 
10  milliseconds  for  the  printer.  The  signal  of  reset  timers  and  DPP 
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bus  from  the  second  decoder  zeros  the  timers  and  selects  the  panel 
meter  output  onto  the  printer  bus. 

The  signal  of  clear  printer  interrupt  from  the  second  decoder 
resets  the  interrupt  from  the  printer  after  the  data  has  been  read. 

The  signal  of  reset  provides  a reset  command  to  the  plethysmograph 
when  selected  or  during  the  power  up  of  the  microprocessor. 

The  two  highest  bits  of  the  address  and  memory  read  or  write 

commands  are  combined  to  provide  the  transfer  acknowledge  (XACK)  to 

the  ready  input  of  the  clock  generator  and  driver  of  the  central 
9 

processing  unit. 

The  keyboard  input  section  (figure  15)  is  designed  around  the 
16  key  encoder^  (74C922).  The  hex  buffer  (CD  4010)  is  used  for  the 
CMOS  to  TTL  interface.  The  tri-state  buffer  (SN  74365)  then  can  be 
selected  to  input  the  keyboard  data  onto  the  data  bus.  This  is 
accomplished  through  the  memory  mapped  signal  of  keyboard  input. 

Capacitors  on  the  encoder  are  selected  for  a 600  hertz 
oscillation  frequency  and  a 20  millisecond  debounce  period.  These 
values  proved  reliable  for  the  pushbutton  switches  which  were  used. 

When  a key  is  pressed,  the  data  available  line  provides  an 
output  which  sets  the  D-type  flip-flop  and  causes  an  interrupt.  The 
microprocessor  can  then  read  the  keyboard  input  and  determine  if  the 
keyboard  was  the  interrupting  device  (Line  13  of  IC21,  figure  15,  goes 
high  for  a keyboard  interrupt).  If  it  was  the  interrupting  device,  the 
data  is  kept.  At  the  completion  of  the  cycle  the  interrupt  handler 
resets  the  interrupt. 


Figure  15  - Keyboard  Input  Section,  B- board 
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A separate  circuit  (figure  15)  is  provided  for  the  system  reset. 
This  provides  a 230  millisecond  pulse  directly  to  the  SBC  80/10  reset 
input . 

The  digital  panel  printer  output  ports  (figure  16)  use  four, 
eight  bit  input/output  ports  (8212).  When  the  SBC  80/10  printer  output 
is  selected,  these  ports  receive  data  as  a memory  mapped  output.  The 
data  is  placed  directly  onto  the  printer  bus.  Once  all  the  data  is 
loaded,  a print  command  is  sent  to  the  printer. 

As  a part  of  this  circuitry  the  digital  panel  meter  (DPM)  output 
enable  signal  from  the  memory  mapped  decoder  alternately  selects 
either  80/10  or  the  panel  meters  for  output  to  the  printer.  When  the 
panel  meters  are  providing  data  to  the  printer,  the  printer  busy  signal 
causes  an  interrupt  signal  to  be  sent  to  the  microprocessor.  The 
microprocessor  then  reads  the  data  from  the  panel  meters. 

Two  timers  are  used  (figure  17)  to  measure  the  second  delay 
period  in  each  of  the  two  plethysmograph  channels.  The  timers  are 
started  and  stopped  by  the  trigger  pulses  at  the  beginning  and  end  of 
the  second  delay  period.  Once  the  trigger  pulse  is  received,  the 
60  hertz  input  is  fed  through  the  Schmidt  trigger  NAND  gate  directly 
to  the  counters.  A second  pulse  shuts  the  timers  off.  The  counters 
are  twelve  bit  long  and  therefore  can  measure  up  to  68  seconds  without 
overflow.  This  is  well  above  the  nominal  3*5  seconds  usually  used. 

The  outputs  of  the  counters  axe  fed  to  parallel  input  ports  4,  5 and 
6 of  the  SBC  80/10.  The  software  then  decides  when  to  read  the  timers. 
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The  hardware  comprising  the  system  is  now  complete.  The 
principle  of  the  design  was  to  provide  a good  balance  between  hardware 
and  software  without  making  either  one  overly  complex  or  cumbersome 
in  interfacing  with  the  plethysmograph. 
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CHAPTER  \ 


SOFTWARE  DESIGN 

The  SBC  80/10  system  provides  one  kilobyte  of  random  access 
memory.  This  was  a basic  consideration  in  the  design  of  the  software. 
As  mentioned  in  Chapter  III,  it  was  desirable  to  sort  the  data  after 
it  was  gathered.  Therefore  it  was  necessary  to  store  all  readings 
prior  to  analysis  and  then  calculate  the  blood  flow.  Therefore 
stored  data  must  be  kept  as  compact  as  possible  to  conserve  memory. 

Since  it  is  also  desirable  to  discard  data  outside  the  range  of 
two  standard  deviations  from  the  mean,  calculations  almost  dictated 
that  a floating  point  arithmetic  be  included  to  compute  the  standard 
deviation.  The  fact  that  there  were  a fair  number  of  variables 
comprising  the  actual  blood  flow  calculation  further  indicated  that 
a floating  point  arithmetic  would  provide  a more  versatile  software 
package . 

The  above  requirements  are  contradictory.  Storage  of  data  in 
floating  point  format  is  not  the  most  memory  efficient,  especially  when 
input  data  can  be  given  integer  values  within  a very  specific  range. 
This,  therefore,  dictated  a third  requirement  that  the  data  be  easily 
manipulated  between  integer  and  floating  point  format. 

Data  Storage 

The  majority  of  the  input  data  was  either  calibration  readings 
or  blood  flow  readings.  Calibration  readings  are  obtained  from  either 
a 0.2  percent  or  a 1,0  percent  calibration.  The  calibration  factor  is 
then  used  in  the  blood  flow  calculation,  as  described  in  Chapter  II. 
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Since  all  calibration  readings  need  to  be  compared,  regardless  of  the 
calibration  factor,  it  was  decided  to  normalize  all  calibration 
readings  to  a i.O  percent  factor.  This  required  multiplying  each 
0.2  percent  reading  difference  by  five. 

The  maximum  range  of  the  panel  meters  and  therefore  the  data 
was  between  -1999  and  +1999 • Therefore,  at  worst  case,  the  differences 
between  two  readings  would  be  3998.  This  is  true  for  the  blood  flow 
reading  only.  A calibration  reading  of  0.2  percent  might  be  multi- 
plied by  five,  giving  a maximum  value  of  19,990.  Calibration  readings 
would  then  require  additional  storage  area.  To  best  handle  the  data, 
it  was  decided  to  leave  it  in  binary  coded  decimal  (BCD)  format. 

The  storage  format  (figure  18)  was  set  up  with  three  bytes  for 
calibration  difference  data  and  two  bytes  for  blood  flow  difference 
data.  Neither  of  the  values  of  differences  would  occupy  the  most 
significant  bit  location.  Therefore,  this  bit  location  was  then 
established  as  a flag  for  data  to  be  discarded  from  the  final  blood  flow 
computation.  Data  is  flagged  if  it  is  outside  two  standard  deviations 
from  the  mean.  Data  with  negative  differences  or  which  overrange  are 
not  stored.  They  are  meaningless  and  therefore  discarded  immediately. 
The  head  of  each  block  of  data  contains  the  number  of  difference 
readings  in  the  list.  The  total  size  of  the  blood  flow  difference  lists 
are  75  readings  per  channel.  The  total  size  of  the  calibration  diff- 
erence list  are  33  readings  per  channel.  This  allows  more  than  enough 
readings  for  an  accurate  sample  and  still  leaves  room  for  data 
manipulation  and  other  storage. 


Range : 

0 to  +19,990 


Circumference 

Differences 


Random  Access  Memory 

Calibration  Differences 
Channel  2 
33  words 
(99  bytes) 


# Cal.  Readings,  Ch  2 


Calibration  Differences 
Channel  1 
33  words 
(99  bytes) 


# Cal.  Readings,  Ch  1 


Circumference  Differences 
Channel  2 
75  words 
(150  bytes) 

# Circum.  Readings,  Ch  2 

Circumference  Differences 
Channel  1 
75  words 
(150  bytes) 

# Circum.  Readings,  Ch  1 


Figure  18  - Difference  Data  Storage  Format 
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0 to  +3998 


F - Flag  indicates 
data  outside 
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deviations  from 
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Other  data  necessary  for  the  computation  of  blood  flow  are 
singular  in  quantity  for  each  channel.  Therefore  those  data  are 
converted  to  floating  point  format  immediately  upon  entry  and  stored 
awaiting  the  final  blood  flow  calculations. 

The  timer  information  is  entered  in  a 12-bit  binary  format. 

This  binary  data  is  converted  immediately  to  floating  point  format 
and  these  times  are  summed  for  each  channel.  An  average  is  later 
computed  for  use  in  the  final  calculation  of  blood  flow. 

Interrupt  Handler 

The  main  program  (Appendix  B)  provides  an  initialization  of 
the  system  (figure  19).  A 20  second  turn  on  delay  allows  time  for 
powering  the  rest  of  the  plethysmograph  system.  After  the  turn  on 
delay  of  20  seconds,  memory  is  cleared  and  all  of  the  system  is  reset. 

A print  test  then  notifies  the  operator  that  the  microprocessor  is 
ready.  The  microprocessor  then  waits  on  an  interrupt  initiated  input. 

At  the  time  of  an  interrupt  the  microprocessor  first  checks  for 
a keyboard  input  (figure  20).  If  the  input  is  from  the  keyboard,  then 
it  checks  to  see  if  it  is  an  enter  command.  If  it  is  an  enter  command 
and  there  is  data  in  the  input  buffer,  the  input  buffer  is  stored.  The 
storage  location  depends  on  whether  it  is  the  length  of  gauge  or  the 
limb  circumference  and  also  the  channel  number.  If  it  is  not  an  enter 
and  not  a calculate  blood  flow  command,  the  data  is  stored  in  the  input 
buffer  until  the  enter  command  is  received. 

A calculate  blood  flow  entry  calculates  the  blood  flow  and 
provides  a statistical  summary  along  with  the  blood  flow  reading  as 
output  to  the  printer.  Memory  is  then  cleared  and  the  system  reset 
prior  to  returning  to  the  main  program. 


Program 


Figure  19  - Main  Program  Flow  Chart 


(Interrupt  ''N 
( OClfiH)  J 


Figure  20 


Interrupt  Handler  Flow  Chart 
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A panel  printer  interrupt  causes  the  data  to  be  read  from  the 
panel  printer.  The  program  then  checks  for  a print  test  on  the 
printer  (all  8s)  provided  by  pushbutton  control  on  the  plethysmograph 
and  returns  appropriately  for  this  condition. 

Along  with  indicating  the  number  of  inflation  cycles,  run 
count  input  shows  that  the  cuff  inflation  cycle  is  complete.  There- 
fore the  timers  are  read  at  this  time.  Channel  Active  flags  are  used 
to  keep  track  of  the  input  data.  The  most  significant  bits  are  ones 
if  either  the  first  or  second  readings  show  an  overload  from  the  panel 
meters.  The  lease  significant  bits  keep  track  of  the  number  of  entries 
for  each  channel.  Once  the  second  entry  is  input,  valid  data  is  stored. 
If  Channel  Active  flag  shows  that  is  the  second  calibration  reading, 
the  Channel  Active  flag  is  cleared  immediately.  Otherwise  the  micro- 
processor waits  for  the  run  counter  input.  The  Channel  Active  flag 
then  indicates  which  of  the  timers  to  read. 

Floating;  Point  Programs 

Data  manipulation  to  find  the  standard  deviation  of  a series  of 

readings  requires  full  accuracy  in  finding  the  sum  of  the  squares.  The 

routines  needed  to  be  able  to  find  the  sum  of  the  squares  of  33  balance 

readings.  At  worst  case,  this  would  be  approximately  on  the  order  of 
10 

10  . References  10  and  11  offered  little  promise  for  such  routines  to 

handle  binary  coded  decimal  numbers.  They  did  provide  other  routines 
or  portions  of  routines  to  aid  in  the  design  of  a set  of  floating 
points  programs.  These  are  noted  in  the  comments  of  the  program 
listings  in  the  appendices. 
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After  consideration  of  the  problem,  a nine  byte  floating 
point  number  was  formatted  (figure  21 ).  This  number  provides  eight 
bytes  for  the  mantissa  and  one  byte  for  characteristics.  The  lowest 
byte  of  the  number  in  memory  provides  the  sign  and  a seven  bit 
signed  exponent.  This  provides  a 16  digit  computational  capability. 

An  exponent  of  up  to  + 63  might  be  obtained.  Although  this  accuracy 
and  range  is  more  than  needed  for  the  plethysmograph , it  was  felt  that 
these  routines  would  offer  an  excellent  package  for  general  use  with 
the  MUPRO  system  in  the  future. 

Routines  were  developed  for  signed  addition,  multiplication, 
division  and  square  root.  Subtraction  is  accomplished  by  changing  the 
sign  of  the  subtrahend.  The  multiplication  routine  relied  heavily 
upon  a fixed  point  BCD  multiplication  program  in  reference  11. 

Division  by  zero  or  finding  the  square  root  of  a negative  number 
provide  error  outputs.  Division  is  accomplished  by  successive  sub- 
tractions of  the  divisor  times  powers  of  ten  from  the  dividend.  The 
square  root  is  found  by  successive  averaging  of  the  divisor  and 
quotient  of  the  original  number.  The  first  divisor  or  approximation 
of  the  root  is  obtained  by  dividing  the  original  number's  exponent  by 
two.  Normally,  a result  of  14  digit  accuracy  was  obtained  in  less  than 
seven  iterations.  Since  the  square  root  was  only  used  to  find  the 
standard  deviation  of  the  difference  readings  from  the  plethysmograph, 
this  routine  is  only  checked  for  six  digit  accuracy.  This  was  accurate 
for  the  entire  range  of  possible  difference  readings  of  0 through  19,990. 


Figure  21  - Floating  Point  Number  Format 


Utility  Programs 
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A wide  range  of  special  purpose  programs  were  employed  to  aide 
in  the  handling  of  data  within  the  system.  These  were  principally 
data  formatting  for  either  storage,  calculations  or  output.  Other 
routines  such  as  the  standard  deviation  and  mean  calculation  programs 
were  used  to  analyze  data.  Other  routines,  such  as  the  comparison 
routine,  flagged  undesirable  data. 

Annotation  as  to  the  specific  function  and  the  required  input 
parameters  in  each  program  are  contained  in  the  specific  program  comments 
in  the  appendix.  Therefore,  the  details  will  not  be  restated. 


CHAPTER  VI 


OPERATION  OF  THE  SYSTEM 

The  procedure  for  operation  of  the  blood  flow  plethysmograph 
with  a microprocessor  is  described  below.  This  is  meant  to  provide 
the  operator  with  information  in  addition  to  that  of  reference  1 
which  is  required  for  measuring  blood  flow  with  the  automated 
plethysmograph . 

First  turn  on  all  components  of  the  plethysmograph.  After 
approximately  20  seconds  the  microprocessor  will  output  a print  test. 
Allow  for  normal  warm-up,  make  all  gain  and  balance  adjustments  and 
perform  operations  as  described  in  reference  1.  When  the  system  is 
ready,  reset  the  microprocessor.  This  resets  the  entire  system  and 
again  outputs  a print  test. 

Next,  enter  the  gauge  length  and  the  limb  circumference  in 
millimeters.  Enter  in  the  following  orders  i)  channel  number, 

2)  gauge  length  or  limb  circumference,  and  3)  the  measurement  in 
millimeters.  Then  press  enter  key.  The  printer  then  displays  the 
data  that  was  entered.  If  an  incorrect  data  was  entered,  reenter 
the  correct  data.  Insure  that  all  measurements  are  entered  for  the 
channels  being  used. 

Calibrate  the  system  as  described  in  the  operator's  manual. 

Once  a series  of  stable  readings  are  obtained,  the  blood  flow  measure- 
ment may  begin.  Again  calibrate  the  system  at  the  end  of  the  blood 
flow  measurements.  (Note:  no  more  than  33  calibration  readings  or 
75  blood  flow  readings  may  be  taken  per  channel). 
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To  obtain  the  blood  flow  reading,  press  the  calculate  blood 
flow  key.  The  microprocessor  now  automatically  calculates  the  blood 
flow.  All  difference  data  outside  the  range  of  two  standard 
deviations  from  the  mean  are  discarded.  If  you  wish  to  retain  this 
data  and  include  it  into  the  calculation,  press  the  number  '2'  before 
the  calculate  blood  flow  key.  After  the  blood  flow  is  output,  the 
microprocessor  then  automatically  resets  itself  and  the  plethysmograph 
and  awaits  new  data. 

A sample  of  the  printer  output  sequence  is  shown  in  figure  22. 
The  first  digit  of  each  output  is  retained  for  channel  identification. 
The  second  digit  of  each  output  is  a sequential  coding  to  identify 
second  delay  time  data  (2),  length  of  gauge  (3)  limb  circumference 
(4),  calibration  data  (5),  circumference  reading  data  (6)  and  the  blood 
flow  (7) . The  standard  deviations  are  not  included  in  the  printout 
when  the  '2'  key  is  depressed  prior  to  the  calculate  blood  flow  key. 
Any  output  greater  than  +9998  is  displayed  as  9999*  Any  output  less 
than  0.0001  is  displayed  as  all  zeros. 

Error  indications  are  provided  to  the  operator  (table  III).  If 
there  are  less  than  two  circumference  readings,  an  error  message  is 
provided.  This  insures  an  adequate  sample  size  and  insures  that  a 
standard  deviation  may  be  computed. 

Input  errors  are  provided  for  an  overflow  of  the  input  buffer. 

If  the  input  data  is  not  entered  correctly  from  the  keyboard  an  error 
is  also  output.  In  either  case,  reenter  the  data.  The  remaining  error 
outputs  are  provided  as  a precaution  only.  Normal  operation  of  the 
system  should  not  require  their  use. 


End 
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Calibration 

& 

Circumference 

Readings 


14  + 289.0 
13  + 239.0 


Beginning 


Blood  Flow  (ml,  / minute  / 100  ml.  of  tissue) 

Standard  Deviation  of  Circumference  Readings 
Mean  of  Circumference  Readings 
Number  of  Circumference  Readings 

Standard  Deviation  of  Calibration  Readings 
Mean  of  Calibration  Readings 
Number  of  Calibration  Readings 

Circumference  of  the  Limb 

Length  of  the  Gauge 
Mean  of  the  Time  Readings 


Circumference  of  the  Limb 
Length  of  the  Gauge 


Figure  22  - Output  Sequence 
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OUTPUT 

INDICATION 

1.1 

+ 1.1.1. 1 

No  Data  Available  for  Output 

3*3 

+ 30.3.3 

Input  Error 

4.4 

+ 4.4. 4.4 

Overflow  in  Conversion 
Floating  Point  to  Integer 

6.6 

+ 6. 6. 6. 6 

Negative  Square  Root 

7.7 

+ 7. 7. 7. 7 

Divide  by  Zero 

8.8 

+ 8. 8. 8. 8 

Print  T-est 

Table  III  - Error  Messages 


CHAPTER  VII 


SUMMARY 

Adoption  of  a microprocessor  interface  to  the  plethysmograph 
adds  the  capability  of  quickly  assimilating  the  data,  obtaining  the 
remaining  parameters  as  necessary  and  providing  the  operator  with 
immediate  blood  flow  measurements . 

The  interface  as  currently  designed  requires  only  a minimum 
modification  to  the  dual  plethysmograph.  The  Intel  SBC  80/10  single 
board  computer  is  integrated  with  the  system.  Peripherals  to  this 
board  were  added  to  measure  time  intervals,  to  provide  keyboard  inputs, 
and  to  output  data  to  the  parallel  digital  panel  printer  bus. 

Introducing  a microprocessor  to  the  plethysmograph  provides 
rapid  processing  of  the  information,  reduces  the  chance  of  operator 
error,  and  allows  for  error  checking.  This  provides  the  operator/ 
technician  with  a more  usable  instrument  which  can  produce  a real-time 
blood  flow  measurement  for  the  physician's  use.  This  modification  will 
allow  a more  complete  evaluation  of  the  blood  flow  plethysmograph. 

Blood  flow  measurements  can  now  be  quickly  repeated  for  correlation 
with  previous  measurements. 

Although  the  initial  system  was  developed  with  the  concept  of 
minimizing  changes  to  the  dual  plethysmograph  circuitry,  follow-on 
systems  would  be  entirely  microprocessor  controlled.  This  would  include 
replacing  the  entire  slope  computer  and  timing  circuitry.  The  calibra- 
tion logic  and  the  manual  gain  and  balance  could  also  be  entirely 
microprocessor  controlled . An  interactive  terminal  could  be  made 
available  and  most  system  parameters  could  be  set  through  this  terminal . 
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APPENDIX  A 

INTERCONNECTION  TABLES 
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I 


I 


57 


1 

Ground 

14 

Decimal  Point 

2 

Decimal  Point 

15 

Decimal  Point 

3 

Decimal  Point 

16 

Decimal  Point 

4 

Decimal  Point 

17 

Data  Polarity 

5 

Sign 

18 

8000 

6 

4000 

19 

2000 

7 

1000 

20 

800 

8 

400 

21 

200 

9 

100 

22 

80 

10 

40 

23 

20 

11 

10 

24 

8 

12 

4 

25 

2 

13 

1 

.0 

.000 

.00 

.0000 

.000000 

.00000 


Table  IV  - J-4  Pin  Connections 
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Pin 

Function 

1 

Ground 

14 

10,000 

2 

20,000 

15 

40,000 

3 

80,000 

16 

100,000 

4 

200,000 

17 

490,000 

5 

800,000 

18 

Enable  DPM  Output 

6 

Overload  1 

19 

Overload  2 

7 

Reset 

20 

Ground 

8 

Print  and  Advance 

21 

Ground 

9 

Unused 

22 

Ground 

10 

Trigger  1 

23 

Ground 

11 

Trigger  2 

24 

Ground 

12 

Printer  Busy 

25 

Ground 

13 

Table  V - 

J-5  Pin  Connections 

u — — 


PIN 

Connector 

PIN 

Connector  PIN 

Function 

1 

2 

3 

4 

5 

+5  volts 

6 

Ground 

7 

DPM  1 

F 

80 

8 

6 

40 

9 

7 

20 

10 

H 

10 

11 

L 

8 

12 

12 

4 

13 

P 

2 

14 

M 

1 

15 

DPM  2 

F 

80 

16 

6 

40 

17 

7 

20 

18 

H 

10 

19 

L 

8 

20 

12 

4 

21 

P 

2 

22 

M 

1 

A 

B 

C 

D 

E 

F 

J4  1 

Ground 

H 

DPP-C1 

B8 

22 

80 

J 

A13 

10 

40 

K 

A9 

23 

20 

L 

DPP-C2 

B14 

11 

10 

M 

DPP -Cl 

B9 

24 

8 

N 

B15 

12 

4 

P 

A10 

25 

2 

R 

DPP-C2 

B15 

13 

1 

S 

T 

U 

V 

w 

X 

Y 

Z 

Card  7 

z 

Enable  DPM  Output 

Table  VI  - Slope  Computer  Interconnection,  Card  5 
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PIN 

Connector 

PIN 

Connector 

PIN 

Function 

1 

Card  3 

U 

Decimal  Pt.  .0 

2 

Card  3 

U 

Decimal  Pt.  .000 

3 

Card  3 

V 

Decimal  Pt.  .00 

4 

Card  3 

V 

Decimal  Pt.  .0000 

5 

+5  volts 

6 

Ground 

7 

Card  4 

19 

Decimal  Pt.  .000000 

8 

Q 

Card  4 

1 

Decimal  Pt.  .00000 

10 

11 

Card  3 

20 

Data  Polarity 

12 

Card  3 

10 

Sign 

13 

Card  4 

H 

8000 

14 

Card  4 

J 

4000 

15 

Card  4 

K 

2000 

16 

Card  4 

L 

1000 

17 

Card  4 

M 

800 

18 

Card  4 

N 

400 

19 

Card  4 

P 

200 

20 

Card  4 

R 

100 

21 

22 

A 

bpp-ci 

A6 

J4 

14 

Decimal  Pt.  .0 

B 

DPP-C1 

B6 

2 

Decimal  Pt.  .000 

C 

DPP-C1 

A? 

15 

Decimal  Pt.  .00 

D 

DPP-C1 

A1 

3 

Decimal  Pt.  .0000 

E 

F 

H 

DPP-C1 

B3 

16 

Decimal  Pt.  .000000 

J 

K 

L 

DPP-C1 

B2 

4 

Decimal  Pt.  .00000 

M 

DPP-C1 

Bll 

17 

Data  Polarity 

N 

DPP -Cl 

A5 

5 

Sign 

P 

DPP-C2 

A1 

18 

8000 

R 

DPP -Cl 

A15 

6 

4000 

S 

DPP-C2 

BIO 

19 

2000 

T 

DPP-C2 

A13 

7 

1000 

U 

DPP-C2 

B7 

20 

800 

V 

DPP-C1 

A14 

8 

400 

W 

DPP-C2 

Bll 

21 

200 

X 

DPP-C2 

A15 

9 

100 

Y 

Z 

Card  7 

X 

Enable  DPM  Output 

Table  VII  - Slope  Computer  Interconnection,  Card  6 
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PIN 

Connector 

PIN 

Connector 

PIN 

Function 

1 

J5 

8 

Print  and  Advance 

2 

DPP -Cl 

B14 

Print  and  Advance 

3 

Card  3 

9 

Print  and  Advance 

4 

J5 

7 

Reset  (80/10) 

5 

+5  volts 

6 

Ground 

7 

DPM  2 

K 

DPM  2 Status 

8 

J 5 

19 

Overload  2 

9 

DPM  2 

5 

Overload  2 

10 

11 

Card  3 

11 

80,000 

12 

12 

40,000 

13 

13 

20,000 

14 

14 

10,000 

15 

16 

16 

800,000 

17 

17 

400,000 

18 

18 

200,000 

19 

19 

100,000 

20 

21 

22 


A 

Switch 

Reset 

B 

Card  3 

Y 

Card  1 

& 2 21 

Reset 

C 

Card  3 

S 

Reset  Count 

D 

Switch 

Reset  Count 

E 

+5  volts 

F 

J 5 

1 

Ground 

H 

DPM  1 

K 

DPM  1 Status 

J 

J 5 

6 

Overload  1 

K 

DPM  1 

5 

Overload  1 

L 

Card  3 

7 

Printer  Busy 

M 

DPP-C2 

B2 

J5 

3 

80,000 

N 

DPP-C1 

BIO 

15 

40,000 

P 

DPP-C2 

B8 

2 

20,000 

R 

DPP -Cl 

A12 

14 

10,000 

S 

DPP-C2 

B12 

Printer  Busy 

T 

DPP-C2 

Bl 

5 

800,000 

U 

DPP-C1 

A8 

17 

400,000 

V 

DPP-C2 

A8 

4 

200,000 

W 

DPP-C1 

All 

16 

100.000 

X 

Card  6 

Z 

Enable  DPM  Output 

Y 

J5 

18 

Enable  DPM  Output 

Z 

Card  5 

Z 

Enable  DPM  Output 

Table  VIII 

- Slope  Computer 

Interconnection,  Card  7 

OsUx  tUMHO'O  CD's:  CTs'sA  -P-VjJ  M O'O  CD-s:  ON  Ox  f-UM^O 
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SBC  80/10 

Connector 

PIN 

Function 

J-2 

1 & all  even 

Ground 

3 

Timer  1,  Bit  11 

5 

Timer  1,  Bit  8 

7 

Timer  1,  Bit  9 

9 

Timer  1,  Bit  10 

11 

Timer  2,  Bit  8 

13 

Timer  2,  Bit  9 

15 

Timer  2,  Bit  10 

17 

Timer  2,  Bit  11 

19 

Timer  2,  Bit  3 

21 

Timer  2,  Bit  2 

23 

Timer  2,  Bit  1 

25 

Timer  2,  Bit  0 

27 

Timer  2,  Bit  4 

29 

Timer  2,  Bit  5 

31 

Timer  2,  Bit  6 

33 

Timer  2,  Bit  7 

35 

Timer  1,  Bit  7 

37 

Timer  1,  Bit  6 

39 

Timer  1,  Bit  5 

41 

Timer  1,  Bit  4 

43 

Timer  1,  Bit  0 

45 

Timer  1,  Bit  1 

47 

Timer  1,  Bit  2 

49 

Timer  1,  Bit  3 

Ground 

Terminal 

60  Hertz 

Terminal 

Ground 

J4 

8 

Keyboard,  Y4 

J4 

7 

Keyboard,  Y3 

J4 

6 

Keyboard,  Y2 

J4 

5 

Keyboard,  Y1 

J4 

4 

Keyboard,  XI 

J4 

3 

Keyboard,  X2 

J4 

2 

Keyboard,  X3 

J4 

1 

Keyboard,  X4 

Table  IX  - SBC  80/10  and  B-board  Interconnection 

(continued) 


B- board 

SBC  80/10 

Pin 

Connector 

PIN 

Function 

37 

38 

J4 

10 

Reset 

39 

4o 

41 

Ground 

42 

Panel  Printer  Busy 

43 

Ground 

44 

Trigger  2 

45 

Ground 

46 

Trigger  1 

47 

Ground 

48 

Unused 

49 

Ground 

50 

Print  and  Advance 

51 

Ground 

52 

Reset 

53 

54  (n.c.) 

J-l 

31 

Overload  2 

55 

Unused 

56  (n.c.) 

J-l 

23 

Overload  1 

57 

Unused 

58 

Enable  DPM  Output 

59 

Unused 

60 

Unused 

61 

800,000 

62 

400,000 

63 

J-l 

27 

200,000 

64 

21 

100,000 

65 

Unused 

66 

17 

80,000 

67 

19 

40,000 

68 

29 

20,000 

69 

25 

10,000 

70 

Even 

Ground 

Table  IX 
( continued) 


B- board 
PIN 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 


SBC  80/10 


Connector  PIN 


J-i 


43 

41 

45 

47 

39 

37 

35 

33 

7 

5 

3 

1 


15 

11 

13 


All  even 

Table  IX 
(continued) 
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Function 

Unused 

1 

2 

4 

8 

Unused 

10 

20 

40 

80 

Unused 

100 

200 

400 

800 

Unused 

1000 

2000 

4000 

8000 

Unused 

Sign 

Data  Polarity 
.00000 
.000000 
.0000 
.00 
.000 
.0 

Ground 


PROGRAM  FILE:  WSs.V.TEM  BFP.PGM-0  78  11  S7  15:38:11 

ENTR . PD 1 NT  = «0000 
PUN  TIME  DEFAULT!: 

CTACr  CIZE  * 8 00*4  TACr  PR  I DP  I TV  *40  FILE!  * 0 BUFFER:  * 0 

□EJECT  FILE  NAME  MODULE  NAME  PROGRAM  LIMIT!  -DATA  LIMIT: 


D>  £ : «*'AL  T 

MAIN. OF J-l 

MAIN 

Dr  8: WALT 

ADD. OF J-0 

FP  ADD 

Dr  8 : WAl  T 

DIV.Ol J-0 

F F DIV 

Dr  c • WALT 

MUlT.OF  j-0 

FF  MULT 

Dr  £ : nAlT 

PR I NT. OF j-0 

output: 

Dr  i : wAlT 

COPT. OF J-0 

:c*rt 

DK8*  WALT ‘ 

’ UTIL. OBJ- 0 

UTIL 

DRStWALT 

UTILl. OB J-0 

UTILl 

Dr  8 : WAL  T ■ 

’UTILS. OB J-0 

UTILS 

IDENTIFIER  addfe:: 

defined 

DIM  TO  DCI*  0C4?  UTIL  I 
FLOOD  FLOW1  3DS3  MAIM 
FLOOD  FLOWS  3P3S  MAIN 
FUFF  COUNT  . 3C7*  MR  I N 
BUFFER  IN  0D3C  UTILl 
CRw  D IFF  l 3E97  MAIN 
CAl  I' IFF  £ 3EFB  MAIM 
CHI  ACT  ’ 3C77  MAIN 
C Hi  ACT  3C78  MAIN 
CIRCUr  LlMFl  3D 17  MAIN 


c ip  cur  limbs 

3DS  0 

MA I M 

compare 

CDF  1 

UTILS 

DEC  A I-I- 

OC 1 1 

UTIL 

DEC  :uf 

OCSD 

•JT  I L 

FP  DIV 

DELAY 

0F47 

OUTPUT 

D I V 1 DE 

08C  1 

FF  DIV 

UTILS 

DPR  FUFF  1 A 

3C  7? 

MAIN 

DPF  FUFF  IF 

3C7C 

MAIN 

I»c-R  DUFFS  A 

3C7F 

MAIN 

DFC  BUFFS I 

3C  8S 

MAIN 

ERROR  O.T 

OAFF 

OUTPUT 

I CRT 

FR ' ADD 

08E  3 

FF  ADD 

UTILS 

FP  NlJM 

3P5F 

MAIN 

FP  OUT  FMT 

OC  a * 

UTILl 

FF  TC  INT 

0D?E 

•JT  I L 1 

INFUT  BUFF 

3C  7 0 

main 

INT  TO  FF 

OC  8* 

UTILl 

larger 

OF  DC 

UTIL 

FF  DIV 

*_ef?  ju:t 

• •-4: 

FF  ADD 

LEn ?"h  GAuGE  1 

3D0«. 

MAIN 

LEMGTm  GA-.-GEc 

31". E 

MAIN 

LDh  lIM  INT 

3F  Ff. 

utils 

0000 

GeES 

3C70 

3F^;ii 

06E  3 

08C  0 

3F5E 

3F*t 

08  C 1 

OA  0 1 

iFi-r 

3F'?3 

OA  OS 

OAFE 

3F34 

3FCE 

OAFF 

OF" 

0B5* 

OB  DC 

3FC3 

3FM 

0BD4 

0C44 

0C45 

ODF  0 

3FDE 

3FE6 

ODFl 

OFA1 

3FE7 

3FF7 

REFERENCED 

MA  I n 

utile- 

UT  I L 1 
Mh  I N 


MAIN 

MAIN 

FF  ADI' 

MAIN 

FF  ADI 

MAIN 

COPT 

MAIN 

FF  DIV 

UT  I L 1 

MAIN 

:qrt 

UTILS 

MA  1 N 

UTIlS 

LIT  II  1 

MAIN 

utils 

MAIN 

FF  ADD 

:cft 

utils 

FR  MULT 

UTILl 

M*H  I M 


UTILE 
Mm  I ft 
Mm  IN 


ME  F*N  FI"M 

3C  bl 

Mm  IN 

MErlN 

3C  C 4 

Mm  IN 

M£ Mli  TIMEI 

3C  F3 

Mm  IN 

ME MM  T 1MEE 

3CFC 

Mm  IN 

MULT 

Om  0£ 

FP 'MULT 

MmIN 

UTIL2 

MUu  T KI 

Oft*i  * 

FP  MULT 

Mi.i.T  IFlICAmI- 

3F=*I* 

FF  MULT 

multiplied 

3F94 

FP  MULT 

1 minu:  1 

3FF0 

utile 

MUM  CftL  1 

3E9E 

MFllN 

MUM  C ML  E 

3EFA 

MFlIN 

mum  p r>?  i 

3K-; 

MPIN 

MUM  P I*.?  £ 

31'- F 

Mm  IN 

MUM  CEMmJMIMG 

3FF  0 

UTILC 

MUM  TIMEI 

3CFi 

MM  IN 

MUM  TIMEc 

3CFS 

Mm  I N 

.‘ml  3 

?i : f 

MM  IN 

M . MIEP  hLE 

?I'4I 

Mm  IN 

M .'•••!  sP  FI-31 

31*44 

Mm  IN 

•t.'UIEF  H'5i 

31  ct 

Mm  IN 

5‘t  I MT  I*ELm. 

01  ■* ; 

output: 

Mh  IN 

pf  Into*.  T 

UmF  f 

output  : 

MmIN 

ppciu:t 

3FI0 

FF  MULT 

pi  :•  i iff  i 

31":- 

Mm  IN 

i : pp  3 

3E  •:•*:' 

Mm  IN 

r mT'^lE  1ZE 

3FF1 

UTIlc 

: ph  : e 

OFE* 

output : 

Mh  1 N 

FF  IUV 

: of  T 

0D5*s 

I OF  T 

UTIlE 

: oumc e 

3FE7 

utile 

•ThC’ 

0 0 0 0 

Mm  IN 

: t r he- 

oeei 

UTILE 

Mm  If* 

:ti  i*e  ':hl  i 

3*1  H- 

Mh  1 M 

: Tit  dev  C*l£ 

3C  IE 

Mh  IN 

: T I I*£  ’•  FT"?  1 

3C 

MFtIN 

:TI  =T"?E 

3C  m 0 

Mm  IN 

I UK 

3C  SE 

Mm  IN 

utile 

lu;i  OF  iuumfe: 

3CS5 

MM  IN 

UTILE 

: up*  timei 

3C  I'F 

MM  IN 

:i.IM  TIMEc 

3CES 

M91M 

TEMFE 

3FI«E 

UT  I L 1 

TPMrr  i*hTh 

OhF  i». 

FF  MULT 

MM  IN 

FF  ftl*l* 

FP  I* IV 

: of  t 

utili 

tpmm:  i.m’h  left 

OFF? 

UTIL 

pp  Fil* I* 

FP  ' I*  1 V 

UTIL1 

Lit"  JUT 

3FFE 

UTILE 

T£FC  MEM 

011*4 

UT  1 L 

MmIN 

FF- AH' 

FF  I*  IV 

FF  MULT 

UTILI 

UTILc’ 
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B2RL-8G  8? 

1 1 

27  12:28:5? 

0 

EFCQP  ; . (i  MAFHIMG:.  ;ee  0 »♦«•». 

lO-JRCE  FILE 

= 

In  2 : WR«_7 

MR  IN.  EI'T-0 

OUECT  FILE 

= 

I'I  2:  • 

IhlT 

mrin.dj  .'-1 

00001 . 000 

1 

1 

08  E 2 

0000c. ooo 

£ 

1 

0 0 0 0 

^CONTROL  NRME*MRIN 

0 0 0 01. 0 0 0 

5 

1 

(i  0 0 0 

■ ICONTPOL  NOlKT 

00 004. 000 

4 

1 

0 0 0 0 

J.C  ONTROL  L I . T . I NNEPL  1 I T . TRBLE  * CROC  2 

0 i.i 0 Of- . ooo 

3 

1 

I.I  l.i  I.I  1 1 

00008. 000 

t. 

1 

0 0 0 0 

THI  : 

13  THE  MR  I N PDIJT  I ME 

FDF  OPERATION  OF  THE 

00007. OOO 

7 

1 

0 0 0 i'i 

PLETHVr 

M08PRFH.  IT  INITIR.I 

ze:  the  :y:tem  rnd  then 

00008. OOO 

g 

1 

0 0 0 1.* 

RuiR  I T I 

imtefpuft:  fdf  servicing  keyboard  input  dp 

00009. OOO 

« 

1 

0000 

INPUT  FROM  THE  PLETHYSMObPRPH.  >> 

0001 0. ooo 

10 

1 

0000 

0001 1 . ooo 

1 1 

1 

0000 

ENTPY 

start; 

0 0 01c. 0 0 0 

12 

1 

0 0 0 0 

E:  TEPHRL  FP  ADI'*  DIVIDE*  MULT*  TP  AN  3 IiRTR* 

0 0 0 1 3- . 0 0 0 

1 2 

1 

I'I  I'I  I t I'I 

ZEPO  MEM* 

LHPGEF.  PPINTDLT. 

00014 . 00* 

14 

1 

0 0 0 • • 

EPPDF  OUT. 

I PRC E • PRINT  DELAY* 

00015. OOO 

15 

1 

0 i'i  0 0 

BIN  TD  PCI'- 

STD  I'EV*  MERN. 

00  01  . ooo 

18 

1 

I'i  i'i  i'i  f 

fp  out  fmt. 

I NT  TO  FP*  COMPARE* 

0 0 017.  0 0 0 

17 

1 

0 o It  i* 

BUFFEP  IN- 

DEC  RDD*  DEC  IUP: 

0 0 0 1 8 . 0 0 0 

18 

1 

0 0 i’i  0 

00  01  2.  OO'O 

19 

1 

I'I  i'i  1 ' I.i 

0 0 Oc  0 . 0 0 0 

8 1* 

1 

OO*  0 

global 

INPUT  PUFF . r * . 

PUpF  COUNT.  CHI  RC T * 

1*1 00c  1 . ooo 

81 

1 

0 0 c o 

CH2  RC  T . 

Dp F PUFF 1 A • 2 • • 

000c 1 . 1 00 

1 

I I 0 *’i  i'i 

DPP  PUFF  if- 5*, 

DPF-  BUFFER  • . 

run.:: . 00  0 

?■  ■ 

1 

i . . . f'  r 

DPP  PjFF£I*5.« 

2 IJM  OF  rCURFEI  •?•  . 

0 0 Oc  3- . 0 0 0 

84 

1 

0 0 ' • •’ 

: ijm  • 9 ■ » 

■TD  LEV  PDG1  - 9 ' . 

000c  3 . 1 0 0* 

;.e 

1 

0 0 0 r* 

IT!'  DEV  PD82  ■ 9 ■ • 

3TI*  DEV  CRLl  • 9 ' • 

000c 4.  00 U 

c'r 

1 

i’i  (i  i.i  0 

ITD  DEV  CRL2 • 9 • • 

MERN  PDGlfSu* 

00085.  0 0 0 

c 7 

1 

0 0 0 0 

MERN  PDG8  • 9 • * 

MERN  CRLl'9'. 

00  Oc* . 1 00 

1 

0 0 0 0 

MERN  CRlc • 9 • » 

ZUM  T I ME  1 ■ 9 • - 

00O£V  . OOO 

29 

1 

0 0 0 0 

:iJM  T I ME  2 '9  • 

NUM  T I ME  1 » 

■ '0027.  OOO 

20 

1 

0 0 0 1 

NUM  TIME 2- 

MERN  T I ME  1 • 9 • • 

> > * Oc  7 . 10  0 

21 

1 

0 I.I  I * 1 1 

MERN  T I ME 2 • 9 * » 

00 02= . OOO 

1 

i.i  i.i  1 1 f 

LENGTH  GAUGE  1*9'* 

LENGTH  GHU6EL • 

00029. ooo 

53 

1 

0 0 i.i  1 1 

CIPCUM  L I MP 1 • 9 ■ • 

Cl  PC  IJM  L I MB  8 • 9 * • 

i-.iii  • i>.  i.im. 

24 

1 

0 1 1 1 * i . 

BlODD  FlD**'  1 ■ 9 • • 

blood  flom2'9'. 

o' r : ; . ooo 

3lf. 

1 

i'i  i'i  r.  r. 

NUM PE F CALI*? •• 

NUMPEF  F I"?  1 ' 9 • * 

0 0 0 c . 0 0 0 

1 

f 1 0 0 n 

NUNPEF  CRL8 ' 9 • • 

NUMBER  PDG2 • 9 • * 

00033. OOO 

57 

1 

0 0 i'i  0 

FP ' NUM ' 9 ' • 

00024. OOO 

5: 

1 

I I I'i  I I I'i 

NUM  PDG  1* 

RDG  DIFF  1 U50> » 

ooo?*..  ooo 

- - 

1 

0 000 

NUM  F'I"3  2- 

F'D'5  DIFF  '2*150'* 

, r : - . o 0 1 

40 

1 

i'i  i • i'i  0 

NUM  3 ML  1 • 

CRl  DIFF  1*99'. 

OnO 37. 0 0 1 

41 

1 

i.i  0 i.i  0 

NUM  CRL  2 « 

CRl  DIFF  8 '99*s 

0 0 0 2 : . 0 0 0 

4c 

1 

0 0 1*  i'i 

0 * 1 ( ‘ - . 0 0 0 

4 3 

1 

0 i.i  1 1 0 

EC'URTE 

3 T AO  = 8F8 

».*  I.*  0:2.1  0 0 

44 

1 

I.I  i'i  i'i  I.i 

EC'URTE 

► YBD  I NT  F = ::  P8  0 0 • 

00040. OOO 

43 

1 

I'I  0 0 0 

EC'URTE 

□ut  :el=«i coo: 

00040. l Oi 

4*: 

1 

0 0 1 * 

EC'URTE 

PRINT  Rr*'..'=  ::R*..o; 

00 1-41 . 0 0 >.* 

47 

1 

0 .in.. 

EC'URTE 

F 3 T T1MEF  p'_  : ; = ::R| 

i i i.i  • 

00 041 . 1 oo 

4-3 

0 1 < i . i 

EC'URTE 

DPF  PRINT  I MTF  = 

n 0 5 

i'i  1 . 1 1 4 2 . U ' s C 

42 

1 

n i > i > i ' 

EC'URTE 

PE3ET  I'P=  e9t.no: 

0004 3 . OOO 

5*0 

1 

0 1.'  1 1 1'l 

EC'URTE 

r CPI'  1 N=  ::7800? 

0OO44. OOO 

5*1 

1 

0 0 0 0 

EC'URTE 

NEC-  : I t?u=  o: 

71 


ooc*45.  ooo 

5 c 

1 

0 0 0 0 

EQUATE 

F'D  2 2 1 GN=  *.  1 (•  ft  0 0 0 (1 0 • 

l.«  '''4*  . 000 

5 2 

1 

0 0 0 0 

EQUATE 

fd;  TFu  FDlAF.s  0* 

ijm.Jr  . 1 00 

54 

1 

0 0 f.  i 

EQUATE 

HE 6 TFU  FOlAF  1 « *.01000000* 

i>0  "4  7 . 00  0 

c;c, 

1 

M 0 o 1 

EQUATE 

all  DEC  FT  2=  *.00111111; 

001.47.  1 00 

56 

1 

0 0 0 (1 

EQUATE 

Chan  i=  0051 

0004 : . 00 0 

57 

1 

0 0 0 0 

EQUATE 

CHAN  8=  ~ 04 ’• 

0 0 04 i- . 1 Of 

58 

1 

0 0 0 0 

EQUATE 

EHTEF  - « (' 3 5 

0004?*.  000 

5.4 

1 

0000 

EQUATE 

CAL  Fl. I1  FLDU=  55  06* 

0 : 1 04  r , 10  0 

c 0 

1 

0 0 0 1 1 

EQUATE 

ci pc  limf*  ttOi; 

00 050. 000 

cl 

1 

0 0 0 0 

EQUATE 

LENGTH  GAUGE  ~ “•  0 0 • 

0005 0. 1 00 

68 

1 

0 0 0 1.* 

EQUATE 

PDF  T 1 = ::E4  5 

• ■ 0051 . 000 

63 

1 

0000 

EC'UmTE 

PDF  Tc*  ssE58 

00051 . 1 00 

64 

1 

0000 

EQUATE 

PDF' T 3=  sE6  5 

0005£. 000 

65 

1 

0000 

EC'UmTE 

PDF  T4=  »E65 

0005cl . 100 

66 

1 

0000 

EQUATE 

PORT 5=  sE95 

0005 3 . 000 

67 

1 

0 0 (•  0 

EC'UhTE 

PDF' T 6=  «EA5 

0005*4 . 000 

6?‘ 

1 

0 0 0 0 

equate 

MA. ' PEALING?  = 505 

00 055 . 000 

6’?* 

1 

0 0 0 0 

EC'UmTE 

M*  ChlIFF-ATIDh:  = 83*» 

0005c-.  000 

70 

1 

0 0 0 0 

EC'UmTE 

BYTE?  PEP  FOG  = 85 

00057. 000 

71 

1 

0 0 0 0 

EC'UmTE 

FVTE?  PEP' CAL  = 35 

0005? . 000 

7c 

1 

0 0 0 0 

EC'UhTE 

TUPN  DM  PELAY=405  ! BELA.  TUPN  DM  1'ELAV 

0005? . 1 00 

7 2' 

1 

0 0 0 * ■ 

! TIME:  500  M2EC 

00  05  ■* . OOi.i 

74 

1 

H f;  0 0 

n i'i  n-  i ■ . o 0 0 

75 

1 

0 M u 0 

2 TAFT : 

1'n .i-  i . 000 

76 

1 

0 0 1 i i'i 

8APFFF 

h=MEM  • ::FFFP  • 5 ! MDF  : NOF  5 HDF  5 

00 :V  2 . 000 

77 

1 

0 0 0 2 

F 2 

I'I  ? AFLE  INTEPPUPT: 

Ov.Or  4 . 0 * . V 

7>; 

1 

0004 

2 1 6F  2 2 

:P=2TACr  : 

f.fi04  c . i.i  i 

7f< 

1 

0007 

: I»C  E 05F 

call  initializes 

f 0 |V  r . 0 f 

ff 

1 

0 0 Or 

•'*  H 1 1 0 0 f. 

HDF  5 HDF  5 HDF*. 

000*:  r.  1*00 

81 

1 

00  or 

0 0 

HOc  5 

00 Or:  : . 000 

68 

1 

000E 

FI 

ENAFLE  INTEPPUPT 5 

000c -. 000 

82 

1 

0 f OF 

OOOOOO  _TDF: 

MDF  5MDP5NDP5 

0 i'i  0 7 0 . 0 0 0 

84 

1 

0018 

C 5 OF  OOF 

GDTD  ?TDF5 

0 > v 7 1 . 0 0 0 

85 

1 

0 0 1 5 

I' 2 «?-?:  - 1 5 5 

0007c. . 000 

6c- 

1 

Of- 2 •? 

i.  ''7?  . 000 

87 

1 

0 0 ? 8 

INTEPPUPT ION: 

00 1'  74.  ooo 

88 

1 

0 0 2-  ?■ 

12  IT  AN  I NTEF'F  IJF  T FROM  THE  KEYFOAF  L ' 

0 0 .'■“’5 . 00  o 

62* 

: 

Of  2 2 

F8 

I'I  2 AI. E I NTEPPUF  T 5 

0oC*76.  00  0 

•=•0 

1 

0 0 ?■  ? 

2-:  A fi  f 1 7 8 

A=MEM'MFI'  IN'S 

i’i  0 077.  0 0 0 

81 

1 

ft  ft  8 C 

47 

F=H5 

00*078.  000 

88 

1 

0081' 

E680 

A=A  ANIi  «£0:  ! MASK  OFF  INTERRUPT 

0007?. 000 

'4 

1 

0 0 8 F 

C81704P 

IF  NDNZEF'D  THEN  bDTD  REAI'  DPP5 

0 0 0 ? fi . 0 0 0 

84 

1 

0048 

78 

A=BS 

00 of i . 000 

85 

1 

0 04  2 

E60F 

h=«  ANI.  s: OF 5 • MA2F  DFF  I VFF  IihTm 

OO 0 . OOi.i 

'4ff 

1 

0045 

4“ 

F=a: 

m of  2 . 00  0 

•47 

1 

0 04  c 

FE0  2 

A-ENTEF  5 

i 0 0 f 4 . fi  0 1 . 

2*2 

1 

0 1 14  2 

•2  H 2 r 1 ; F 

IF  lEFC  THEM  GDTD  2 TOPE  BUFF • • IF  ENTEI 

00**?  5* . 0"  ’ 

88 

1 

FE  08 

A-CAl  Fi_I-  FlD'**  5 

(*f*  ■ f r . 1 • l.l  1 

1 0" 

1 

0**41 

. A.:  ..OOP 

IF  ZEF'C  THEN  GDTQ  COMPUTE  FF  5 
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1 

01 EO 

C P 0 0 0 0. 

CBLL  FP  OUT  FMTJ 

i. 01 4 : . 000 

18;  7 

1 

01 E 8 

OE  1 7 

C 17* 

001' 4 -* . 0 0 0 

1 88 

1 

01 E5 

C p 0 0 0 (i 

CBLL  PP INTOUT: 

001 50. 0"( 

18  * 

1 

01  Ec 

C I*  0000 

CBLL  SPACE: 

OOl'f-0 . 1 00 

1*0 

1 

0 1 E I 

C P 0 (i  ('  ox 

cbll  space: 

0 (151 . 0 0 ' 

1*1 

1 

01  EE 

CHMttti-  E: 

0(1 51 . 000 

1*1 

1 

01  EE 

IF  CHANNEL  8 Hh:  MOPE  THBri  ONE  PEAP1NG* 

001 5 ' . 000 

1 * 8 

1 

01  EE 

CALCULATE  BMP  OUTPUT  IT!  PLOOP  FLOW 

0 0 15 4 . 0 0 •’ 

1 r*4 

1 

01  EE 

3B£:F  0 1 8 

B*MUM  PP8  8'! 

00155 . 00  * 

1*5 

1 

0 1 F 1 

FEOI 

A-1'5 

c . i . . i 

1 *r 

1 

OIF  3 

IF  NtGBT I VE  ! MO  PBTB  CHBM  8 

! 1 1 1 c - % 0 l 1 

: i" 

0 1 f •- 

F 1 OE  08  F 

THEM  PEG IN 

0*.  1 5 . 01  ( 

01  EE- 

ShE  r*"08 

A-.BLOCP  FLOUi:  • mb:  thepe  PBTB 

001 5-=  ,01« 

1 -* 

1 

OIF* 

FEFF 

h-s:FF;  ! FOF  CHBM  1^ 

or !5r . • 4 o 

; (•  0 

01  FI 

IF  ZEPC 

ik.15c  . • " 

' *•  1 

1 

0 1 F l 

C 8 OP  OI  F 

THEN  PEG IN 

• 1 1.  1 5 r- . Or  ( 

1 i.-l 

01  Ft 

p=cc:  sign  op  Fo:  tpu  polapy 

(it.  15r  . 07  ( 

’ " 1 

l 

01  rE 

OcEF 

OF  Bll  PEC  PT : ; 

0 v!  5 c . 0 : (> 

1 04 

01'  0 " 

OE  1 1 

c *«  1 1 ; 

I".-:.  o*c 

:-05 

01 01 

1 1 1 1 1 1 

pe*«i  i 1 1 ; 

( 015- . Of! 

? Ilr 

;• 

01 05 

•;  r*  ii  o ••  (• 

CHLL  EPPOF  out; 

0 01 7-  . 0 -1 

••  or 

2 

01 08 

C Ii  k (•  0 0 

cbll  space* 

0015c  . 0 r*  : 

808 

1 

08  OP 

END! 

Ool'5c' . 0*4 

so* 

1 

GEGD 

C38803P 

GOTO  CLEW  MEM! 

Ofilc.r. . 0 ^*c. 

81  0 

1 

08  OE 

enp; 

r 0 : *■  - . 1 0 ft 

1 1 

1 

01 OE 

};h  (i  0 (i  08 

As  INPUT  puff; 

m !5  r .10 '. 

111 

1 

081 1 

FEOI' 

*-«©:•!  ! E KEY 

00c5c  . I'  " 

: i : 

1 

01 1 8 

CB4801P 

IF  ZEPO  THEN  GOTO  MEAN!* 

0015c  . 4 »•» 

.14 

1 

0818 

! :►  ip  :ti-  pev  computation 

0 i.'l  5'  7 . 0 * « ■ 

i 5 

1 

OE'  1 e 

8 1 8F  0 1 8 

HL-iWM  FDG  E! 

0015 : . 00" 

Sic 

1 

08 1 * 

1 1 30008 

DE-i'ITD  DFv  FD6C-  V 

0015*.  001 

: i r 

1 

•‘•1 1 C 

01  54  f » ii 

F>iME*N  EDGE  * 

i _r  .(«.■>. 

• i 

1 

Ml  IF 

CEDE 

A«i.TE.  F£F  PPG: 

r • c c 1 . Ok*' 

;•  i * 

; 

0813 

r Ii  0 1 1 fi  i"' 

CALL  :td  DEV!  ! HL«*:Tt  DEV 

• '01  cl . " 1 

1 

1 

'•884 

1 1 5-4  KIM? 

PE*ilMEBU  FpGi* 

nOlc  1 . i *"• 

811 

1 

"ic  7 

01  3F . 18 

prsi'NUM  PPG  IS  ■ 

001  r 4.  I'll  •' 

81 1 

1 

081  B 

08 

A*P VTE PEP  PI'C-S 

0 01 r 5 . 00k 

•:1  *• 

1 

one 

C p 0 " " 0 

CALL  COMP  APE : FLBGl  I'BTA  QuTIII'E 

|Mi;-r  . 0 • ' 

.14 

1 

01  IF 

♦ - i :tp  pev 

00 5>-7 

000 

55? 

1 

Oc'cF 

5 1 ©ft 056 

OOc'C 

0 0 0 

356 

1 

Oc  3 c 

1 1 4500'? 

0 056  ? 

0 0 0 

5c' 7 

1 

Oe 

0 1 cc-  0 O'? 

001 70 

0 0 0 

35-3 

1 

0536 

3E  O 5 

00c  7 1 

0 Cl  0 

35"? 

1 

05  3 A 

c do  000: : 

00  c' 7£ 

000 

330 

1 

tie  si- 

lice  OOG 

00c  7? 

0 0 0 

331 

1 

054  0 

0 1 SR 056 

Oi.  £74 

0 0 0 

5 5 c 

1 

054  5 

3E0  5 

00c  7' 

0 0 0 

5 5 : 

1 

Cc4? 

C I'  0 0 0 0: 

00c  7t 

0 0 0 

3 34 

1 

0546 

00c  7 7 

0 0 1 * 

35* 

1 

Oc'  4 5 

Otic'S 

000 

33c. 

1 

0546 

0605  MEAN5 

0 • 7* 

0 0 

3_37 

1 

054A 

1 154005 

OOcSO 

0CI(| 

333 

1 

0£4I' 

51&F016 

00c?  1 

0 0 0 

35? 

1 

05?  0 

C D 0 0 0 O' 

OOccc 

0 0 0 

34  0 

1 

05? : 

Oc-  O ? 

OOc  c . 

0 0 0 

541 

1 

05?? 

1 1EF006 

00554 

0 O 0 

34c 

1 

05?: 

5 1 E c-  0 06 

00c':  ? 

0 0 0 

34  5 

1 

05  ?l 

f DOOOO. 

'.".'c'Se 

•JOT' 

544 

1 

0£5E 

06  0 : 

00567 

o 0 0 

54? 

1 

05  c 0 

116c  0 06 

00  c'  : 

'Too 

54c 

1 

05c  5 

5 1 SR  1, 56 

00c":  - 

0 0 0 

547 

1 

056c 

C D 0 0 0 0. 

00c"?  0 

0 0 0 

54  = 

1 

05  c '? 

Oc-  0 ? 

00  c?  1 

000 

54'? 

1 

05  c l 

1 1EF006 

00 5"?  5 

0 0 0 

5?  0 

1 

05 6 E 

5 1 DD"06 

i.ii.i  - ? . 

0 0 0 

5?1 

1 

0571 

r ii  0 0 0 0 

00c  ?4 

0 0 0 

=:?=• 

1 

05  74 

c '.<c  ?? 

0 0 0 

: ? 5 

1 

0574 

: -R  - cOO'ri 

I.".'c"?c 

0 0 0 

5?  4 

1 

0577 

1 6 0 0?F 

0 Oc  ?c- 

1 0 0 

5?? 

1 

05  7 R 

5 1 OF  006 

OUc  ?c- 

c 0 0 

=*?6 

1 

05  7 D 

C Ii  0 0 0 0 

00c  ?c 

=:  0 1 

5*7 

1 

05  1' 

7E 

00c?: 

0 0 0 

5*  : 

1 

05  5 1 

Jc'5  c 0 06 

OOc'-*  ? 

0 o o 

?*? 

1 

05  54 

Oc  0 1 

0 0 =•  0 0 

0 0 0 

5F7. 

3 

05  = c 

lice 

• 01 

0 0 " 

5c  1 

1 

055  ? 

51EF005 

• 1 0 : Oc 

0 0 0 

5c  c 

1 

0551 

7 D 0 0 I I |.i 

0 o 5 0 5 

0 0 0 

3 c.  5 

1 

05  = F 

El 

OU  304 

000 

364 

1 

05?  0 

£ 1 78 0 06 

00  50? 

000 

3c? 

1 

05"?5 

01 1E006 

003  OS 

000 

366 

1 

05"?  6 

C DOOOO; 

00507 

0 0 0 

3c- 7 

1 

05"?? 

Ml i.in*=. 

00?  05 

0 0 0 

365 

1 

05"?C 

1 1C?0?F 

00:0? 

0 0 0 

36'? 

1 

05”?F 

C D 0000! 

00510 

0 0 0 

370 

1 

05R5' 

00511 

0 0 0 

371 

1 

0 5R5 

01EF  006 

00:  15 

0 0 0 

37c' 

1 

05  R? 

1 1 ?4 006 

00:1  : 

i'i  ii  o 

375 

1 

05  R 8 

5 1 '?£  0 06 

o-  ; 1 4 

1 1 i'i  o 

574 

1 

05  R I 

■ r.  ii  0 0 1.1 

O'. : :? 

i’i  0 0 

5.7? 

1 

05  RE 

01  IE  006 

O'  -'ll*. 

0 0 0 

57  c. 

1 

051  1 

1 1 DC  0?F 

Ml  .17 

0 0 0 

377 

1 

05  f 4 

C I1 0 0 0 1.1 

0».'5l': 

0 0 0 

375 

1 

0517 

HL  = WM  CftL-  c • 

I'E  =■  •»*  T T II  DE  V C AL5  • 

BC  =i*MEMM  CRLc'S 

A=BYTEI  PEP 'CALS 

CALL  > Til  dev;  ! HL=*:TD  DEV 

BE— i'MEHh  C HLc » 

BC  = 5'NUN  CA L 5? 
a=byte:  pef  cal; 

CALL  COMPARES 

FIND  A ME l*!  MEAN  FOP  C RL  I BF'ATIDM 


RMD  F'ERD  I Mi?  I 

B*BYTES'PEP  PI"? 5 
DE*dMERN  PD65* 
HL=5>N'JM  PD6  55 

call  merm; 

B-?S 

DE=i»FF*  MUM:  ! 

: AMPLE  :ize 

HL«*N'JMBEF  PD655 

call  tram:  data; 
b-byte - pep- cal; 

DE=i>MEAN  CAL  5! 
HL=i'NUM  CAL  £5 
CALL  MEANS 

B=?S 

DE*i>FF  mum;  ! 

CAMPLE  CIZE 

HL=i»MUMBEF  CAL  5; 
call  tfan:  DATA; 
calculate  the 

MEAN  TIME  READING 

ft*MUM  TIME 5; 

I.=  os  E=AS 

HL*iI'PP  BUFFERS 
CALL  FIN  TC  BCD? 

f HL  = i'BCD  RESULT 

A=MEM • ML • i 

MUM  time5=a; 

b=i  ; 

Dt  = i'MUM  TlMEc'S 

HL  = ->*FF'  MUMS 

CALL  IMT  TO  FP;  • 

HL  = i'FF  MUM 

DE  ==  hl; 

HL=i*:UM  TIHE5S 
BC^i'IUMS 

CALL  DIVIDES  ! 

HL*BZUM 

BC»5'MEAM  TIME55 

DE=*I  i:ty; 

CALL  divide; 

FIND  BLOOD  FLOW 

BC  =i*FF  MUMS 
DE*i'MEAfi  RD65S 
HL“*'LEMi?TH  6AIJ6E5 

CALL  mult;  ! 

HL«*FP  MUM'FPOI'U' 

bc=y:um; 

DE  = i'OME  TWENTY; 

call  mult; 

HL  =•' : IJM  • PF'ODUC  T 

numeratof  df  bld  flu 


77 


00 51  ?.  000 

333 

1 

03  F 3 

0 1 EF 003 

BC«i»FP  hum; 

0 0 ?£  ■ 000 

33  0 

1 

03  BA 

1 166005 

BE=*MEhN  CfiLES 

Of1  33  1 . 000 

33 1 

1 

03  FI' 

3 1 F 0 0 0*3 

Hl=vC  IPCUM  LIMF3-; 

OOicc . 000 

333 

1 

OEC  0 

C Xi  o o 0 O' 

CALL  mult;  ! HL=i»FR'NUM 

00 3£3.  000 

333 

1 

03C  3 

0115  0 OS 

bc  um  df  square: : 

00  334.  000 

334 

1 

03(36 

1 18*3  0 0*? 

D£**MEAN  Tin E£-s 

00 335 . 000 

335 

1 

03  C ? 

CI'0000 

CALL  MULT.  <<  HL=**PPQDUC T DF 

00 lie . 000 

333 

1 

OZTl 

DENOMINATOR  df  FLI*  FLUss 

00337.  ooo 

333 

1 

03  CC 

EF 

DE  ==HL? 

00  33: . 000 

33* 

1 

OEC  I' 

31  IE  Of*.? 

HL=*3UMS 

0033?.  OOO 

33? 

1 

031-0 

0 1 C 3 0 0>? 

BC=*'FlCCI  FLOWS; 

00330. 000 

330 

1 

031*3 

ciioooo:- 

CALL  divide; 

00531. 000 

3?1 

1 

0 3D6 

< OUTPUT  CHFIHHEL  c DATA  >> 

00331 . 1 00 

333 

1 

03D6 

cron  00/ : 

CALL  SPRCEt 

00 1'? 3.  000 

3?  3 

1 

031'  ? 

3 1 3C  Of"? 

HL=SMEAN  TIMERS'  ! OUTPUT  MEAN  TIME 

003: ; . 000 

3?4 

1 

03I«C 

3 Iifn  Oi.. 

CALL  FP  OUT  FMT S 

003: 4 . 000 

3?5 

1 

031'- 

0E33 

*3  *»££? 

00 3 35 • 000 

1 

03  E 1 

C I'  f*  fi  0 O' 

call  printout: 

00:35. 1 00 

??3 

1 

03  £4 

3 I'  0 0 0 0 

ChlL  IFmle: 

0 0 3:3.  0 0 0 

3?  3 

1 

03  E 3 

3 1 ?E  0 *"? 

HL  = -»'LEHi?TH  gauges:  s output 

00; ; 00 0 

33? 

1 

03  E A 

C I' 0000. 

CAuL  fp  out  fmt; 

0 0 3 :■ . 0 0 0 

4 Of 

1 

03  El 

0E3  3 

C*tt33! 

003?:*.  0-00 

401 

1 

03  EF 

C I'  0 0 0 0 ; 

CALL  printout: 

OC  34  i;  . OoO 

4 Oi 

1 

03'F  3 

3 1 1 OOO'? 

HL  = ■»'*:  IPCUM  L IMFc  5 ! OUTPUT 

0 0 : 4 i . 0 o f 

403 

1 

03F5 

3 I*  0 0 0 0 

Crli-L  FF  OUT  FMT: 

00 343 . OOO 

4 04 

1 

03  Fc 

0E34 

C — “34 : 

0034 3. 00 i 

405 

1 

03  FA 

C I'  0 0 0 0 . 

CALL  printout: 

0034; . 1 00 

4 Or 

1 

03  FT 

C I*  0 0 0 o 

call  : pace : 

00  344 . 00  1. 

4 03 

1 

0 3 0 f 

OUTPUT  CALIFPATIOH  IMFQS  SAMPLE  3IZE« 

f 1 0 ; 4 5 . 0 f 0 

4 03 

1 

0300 

MEAN  * 3 TD  DEV;  IF  CALCULATED  >> 

00 ; 4i , OOO 

4 0 ? 

1 

0 3 0 0 

311*1*  Of"? 

HL=*H.JMFER  CALc'5 

0 0 3 4 7 . 0 0 i ■ 

410 

1 

0 30; 

3 I*  0 0 0 0 

call  fp  out  fmt; 

00  ?4  : . 0 0 f 

41  1 

1 

0 3 Or 

0E35 

C*«S55 

0034 00 i 

413 

1 

030? 

3 1- 00  O'- 

call  printout; 

Of  ; 5' . 0 f ! 

41 : 

1 

t : >■} 

3 1 r r : 

ml  = -i'f'E  A*  ■ 3 ALE'S 

0*.  3C  : . 0 0 • 

414 

1 

030  E 

ere  *:•> 

CALL  F ^ OUT  FMT; 

0 f 3 3 . 1 • • 

415 

1 

0:11 

*.*£35 

3 --35 ; 

Of* * 5 . " o !• 

4 1 r 

4 

o : i 3 

C I*  *.'  *.•  *.■  • 

CALL  rrimtdut; 

0035 : . 1 00 

413 

1 

0 3 1 6 

•:h  I’;  fi  0 OF. 

a* input  fuff; 

00351.300 

413 

1 

031? 

F E OI' 

ft-«0D5  ! £ KEY 

00353. 300 

41? 

1 

03  It 

C HEC  0 EF' 

IF  ZERO  THEN  GOTO  RDG35 

00354 . OOO 

4£0 

1 

031 E 

314300*? 

HL =•*'  I TI*  DEV  C HL  £ • 

O0  35e’t.  OOO 

431 

1 

0331 

C It  0 0 0 0 

CALL  FF  OUT  FMT; 

Of  35-. . OOO 

433 

1 

0334 

0E35 

•3s”  £5; 

00  353. 0 0 i.i 

43; 

1 

0 336 

C I'  0 0 o 0 . 

CftLL  FFINTDi.IT! 

00353. 1 00 

434 

1 

0 33? 

C I*  0 (i  0 0. 

CALL  I FACES 

0 0 35  : . 0 0 1. 

435 

1 

0 ; 3 3 

FI**?3: 

OUTPUT  PE  AD  IN'?  INFS  CAMPLE  1 1 ZE* ME Ah 

0035 ?. OOO 

43r 

1 

0 ; 3 C 

* : TI.  I'EV!  IF  CftLCULftTEI*  > : 

00  3*:  f . Off* 

433 

1 

0:33 

3 1 E 6 0 O'? 

HL=i'NUMFEF  P DG£  5 

f 0?t 1 . ooo 

43: 

1 

* .3- 

3 1'  i.i  1 1 1 0 

CALL  FF  O'jT  fmt; 

00  3--3 . 0 0 1 

4c  - 

1 

*'• ; . ; 

OE  36 

C*«£6? 

f.  i • } i : . I in  ft 

4 ;•  i. 

1 

ft : 4 

1 1*  0 o *.'•* 

CALL  PRINT OUTS 

Of. 3r-4 . OOO 

4 31 

1 

0 3 3 7 

3154  n f"? 

HL=i»MEAN  RD6£5 

78 


79 


00413. 000 

4S7 

5 

03R? 

CBGOOOX 

Cmll  BUFFEF  ins  * hl=/lEhC-7h  GAUGE  1 

0"4 1 4 . 0 U 0 

4?? 

3 

(i  Jh5 

c I' m o o o: 

CALL  FP  OUT 'FMT 5 • OUTPUT  BRTR 

004 1 5. 000 

4?  ? 

3 

03h: 

OE  1 3 

C =::  1 3« 

004 1 c . 000 

4?0 

}• 

03RR 

c I'  o o o o:- 

Cmll  PRINTOUT! 

00417. 000 

4?  1 

3 

03mI' 

C Ii  0 0 0 ox 

CALL  SPACES 

004 1 : . 000 

4??' 

2* 

03  BO 

EMI* 

004  1 ?.  000 

4 3*3 

? 

0 51  u 

C 5CF OSP 

else  begin  i ; tof e cipcum  of  lime 

004i0. 000 

4 3*4 

3 

03 1: 3 

FE01 

A-CIPC  L IMI  S 

004? 1 . 000 

4 3*5 

:: 

03 15 

IF  ZEPO 

004ii. 000 

4 ?e. 

031:5 

C2CC 05F 

THEN  BEGIN  ! I TOPE  JDUTFUT  LIMB 

004c  3.  000 

4 '3*7 

4 

031  "2 

! CIRCUMFERENCE 

004c 4. 000 

4 ?•? 

4 

03B? 

i ifcoug 

be=*circum  limbi; 

004.55. 000 

4?? 

4 

03  Bfc 

CiOOOOX 

CRLL  BUFFER' I Mi 

©04£5.  1 00 

500 

4 

03  BE 

! HL-fClPCUMLlNBl 

004cc-.  000 

501 

4 

03BE 

CBOOOOX 

CRLL  FF'OUT'FMT: 

0043:7.  000 

50c 

4 

03C  1 

OE  1 4 

C*«14i 

004?'?. 000 

5 0 3- 

4 

03C  3 

C I'  0 0 0 0. 

crll  printout; 

004??.  000 

504 

4 

03C  c 

C I*  0 0 0 0 

Cmll  SPACES 

00430. 000 

505 

4 

03C? 

EMI' 

004 ; i . ooo . 

5 Or 

0 3*3  ? 

C 3CF03F' 

EL  IE  GOTO  INPUT  ' ERROR! 

0 C 

•I  35? OOF 

004 3c . 000 

507 

03  C F 

! NEITHER  L'3  NOr  Cl 

004 3 4. 000 

50c 

c. 

0 3'CF 

EMI*  • 

004 35 . 000  ' 

50  3* 

c 

M3  C r 

END 

004  3t . 00'.' 

510 

1 

03 'IF 

C 3 1 4 04  F 

el:e  begin 

00437. 000 

511 

i 

03  D 3 

F E 04 

R-CHhI*  ?’• 

004  3 : . 000 

51? 

£ 

0 31*4 

IF  33EPC 

004  3 ? . 00  0 

51  3 

c' 

0314 

Cell  04 F 

THEN  BEGIN  ! CHRNNEL  c 

00441.1.  000 

514 

031-7 

c 3 

hl=hl+i ; 

it 04 4 l . 000 

515 

3 

0 31'? 

7E 

R=MEM • HL  * * 

0044c . 000 

51  r 

}; 

031'? 

FE  00 

R-LEHGTH  GRUGE? 

0044 3 . 000 

517 

t; 

u 3 1‘ 

IF  ZEFO 

00444. 000 

5 1 ? 

t; 

o 3 r> 

C c'F?  0 3C' 

THEN  BEGIN  ! 3 TORE  GRUGE  LENGTH 

0044*. , 000 

51'? 

4 

03  BE 

1 1 ?E  0 OG 

BE- vLENGTH  GRUGE? « 

0"44r  . 0 0 C 

5c  0 

4 

03  El 

Cl' 0 000. 

CMLL  BUFFER  in! 

Ov44c  . 1 in.' 

5c  1 

4 

l»3E4 

! Hi_  = ^LENGTH  GRUGE?' 

00447 . 000 

5c  c 

4 

03E4 

C I' "OOO' 

CRLL  fp  out  fmt;  • output  BRTR 

0044 : . 000 

5c  3 

4 

0 3E7 

OEc  3 

C*«?3'i 

l.i 0 4 4 f* . 000 

5c  4 

4 

03E? 

•3 1'  0 0 0 1 

crll  printout* 

004* 0. 000 

5cT 

4 

03EC 

*:  I'  0 0 M 0! 

CALL  SPACE! 

0045*1 .000 

5c' c- 

4 

03EF 

EMIl 

00453. 000 

5c  7 

i 

03EF 

C30E04P 

ELSE  BEGIN  ! STORE  CIRCUM  OF  LIMB 

On 4* : . OOO 

5c"3' 

4 

0?F£ 

FE  01 

R-C IRC  LIMB! 

0 >4*4.  00 

5£i? 

4 

03F4 

IF  ZEFD 

00455. 00" 

5 0 

4 

03F4 

C30BU4F 

THEM  BEGIN  ! 3 TOPE  s OUTPUT 

0045*:  . 000 

531 

5 

03F7 

! LI  MI  CIRCUMFERENCE 

00457. 000 

5-1 

5 

0 3 F 7 
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OT.ftE 

IF  ZERO  ! £NI.  CFIL  PI'G 

0071*..  000 
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Ch i mCT=F: 

5 . OOl 

7*5 

4 

051-4 

55  0 Oh  1.1 

mem*f:t  timef  kus  •*»=♦: 

0071  - . mi 

7*5: 

05*  = 

ENI«i 

00710  0**o 

7-4 

3 

05 1 * 

Ewr«! 

o*:“c  i . oo  o 
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PROVIDE:  ft  DELAY  TO  ALLOW  FOP  THE 

O'  " 30.  000 
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l«l-i; 

00737. 000 
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0074 1 . 000 

3 1 6 

1 

05OC 

C I'  0 0 0 ox 

CALL  ZEPO  MEM5 

00743. 000 

817 

1 

05  OF 

31703C 

hl*:tac**i  5 

0074  ; . 000 
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007c 4. 00" 

843 

1 

0603 
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00781 . 000 

8?* 

1 

0612 

IF  ZEPD 

00752 . 000 
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00806. 000 

887 

1 

0629 

57 

B*R! 

00807. 000 
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2 
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1 

05  71 

EMI*: 
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1 
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1 
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1 
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00232. 000 
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1 
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1 
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2 
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2 
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2 
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£• 
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ft*5i 

00*77.  000 

95i9 

*• 
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*' 
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* 
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9*5 

1 

Oct* 

EM  pi 

00**4. 000 

96* 

1 

0611  El 

hl*td:? 

00885.  000 

967 

1 

06PC  E3 

HL<**>T0S5  ! STAPT  OF 

PIFFEREMCE 

ooss*. 000 

96? 

1 

06 II  7E 

A=MEM  < HL  ' • ! NUM  PP6: 

IM  LIST 

00**7. 000 

9*5 

1 

0*tE  54 

MEM  • HL.'  =MEM  • HL  > ♦ 1 • 

00***. 000 

970 

1 

06 tF  06004F 

E=OSC=ftS 

00***. 000 

971 

1 

06C£  61 

H*A+C  5 

00: *0. 000 

97* 

1 

06C  5 3C 

A=H-f  l : 

0 0 551. 0 0 0 

975 

1 

06C4  5F1600 

E=f|i  P=OS 

00“ 5*. 000 

974 

1 

06 C 7 FI 

fiflfi6:=td:! 

0 0 : ■*:  . 0 0 0 

*75 

1 

06C  '*  E * OF 

A=m  AMI-  si  of;  ! MAIt  OFF  ID  1NFD 

005  54 . 000 

97* 

1 

06C  9 

IF  NDfCEPO 

00555. 000 

977 

1 

0*C  A C AD  5 0*F' 

THEN  BEGIN  • CAL  INFO  <3  BYTES/ 

00*5*. 000 

97* 

* 

06CI*  09 

HL*HL*BC: 

00**7. 000 

979 

0*C E 0*03 

t=31 

00  555 . ooo 

95  0 

=' 

0*I.i 

EMP 

0 ft-  - - . oi.iO 

9*1 

1 

0*I  " C 5I'50*F 

ELSE  I=£i 

1 

0*1 : 0*0* 

00* 00. 000 

•=••5.5 

1 

0*1' 5 19 

hl=hl*de; 

0 0 5 1 . 0 0 1 • 

u.z  ■ 

1 

061":  lllEt'i"? 

DE=*':ums 

OOW.* „ 000 

9*4 

1 

0*1'-  Ci'oooo 

call  tp am:  data; 

. o (i  o 

ii!- 

1 

0«£  C 9 

fetufn; 

0 1 -i4.no  0 

1 

0601' 

PQF  AND 

FET: 

r o-i'*.,  Oo1 

-5-7 

1 

o* rr  *10*00 

HL**! 

0 f pn'if; . 000 

555 

1 

06E0  59 

h^*hl*»-:f  ! 

fi  o 5 o 7 • 000 

9*  5 

1 

0«- El  F 9 

:f=ml! 

0 0 505.  0 0 o 

9-0 

1 

0*E*  C 5 

petijpm; 

0 0 '5  0 - . 0 o o 

-51 

0 

0*E  5 

EMP. 

0 EFF  DF'I  * 

P‘AL-*0' 

*5.* 

5 

rs  11  £7 

1 3:  1 0:  01 

Fill  ' DEC  PTS 

EOUFtTE 

«005F 

55  1 1 ( 

503 

85* 

*F1 

LmIEL 

wOlDD 

**5  *79 

ff; 

LhIEl 

::  0 55* 

443  457 

l lfl  TD  KI 

ExTEPMFil 

« 0 0 1 4 

15  19* 

;'5'C 

601  6*4 

I-OSP  FlO'.'I 

GLOBAL 

001.  - 

54  1 4t 

*51 

£85  £96 

I.LOOP  FLOP 

*• 

GuDBAl 

::  0 0 C * 

54  559 

445 

89 


n 


BUFF  COUNT 
BUFFEF  IN 
BVTEC  PEP  CAL 

B»  TE* 'PEF'FBG 

CAL  BLB  FLOW 
CAL 'BIFF '1 
CAL  BIFF "g 
CALC  STOFE  I' IFF 
CHI  ACT 


C HAN 1 F£ IET 
CHAN*  FEIET 
CHAMN  1 

Chamn  i 

Cl  PC  LIMB 
CIPCUM  LIMBI 
CIPCUM  LIMB2 
CLEAF ■ MEM 
ClF  in  buff 

COMPARE 
COMPUTE  BF 
I€  C ABB 

be:  :ui 


GLOBAL 

»000t- 

£0 

103  13c 

47c' 

e>:tefnal  « ooi  a 

17 

437  4** 

520 

EQUATE 

80003 

71 

170  174 

166 

332 

344 

EQUATE 

8 000c 

70 

160  164 

178 

322 

336 

equate 

80002 

e.-i 

9? 

GLOBAL 

©0227 

40 

GLOBAL 

©028B 

41 

LABEL 

8 06  IF 

36* 

7 04  778 

Global 

8 0007 

£0 

7*0  637 

6?8 

662 

664  683 

685 

Global 

©0008 

£1 

6 1 8 6 38 

786 

736 

7 38  777 

EQUATE 

::  0 0 07 

7* 

478 

EQUATE 

80004 

r;^ 

71 1 

LABEL 

8 072C 

7 1 «f 

6 72 

LABEL 

8 07B1 

7 AO 

748 

LABEl 

8 o o ■* : 

17c 

LAB-El 

8 01  EE 

£91 

143 

EQUATE 

8 0 0 0 1 

6 0 

4*4  728 

Globa*. 

8 00A7 

y y. 

223  244 

4*3 

GLOBAL 

8 00B0 

33 

331  402 

532 

LABEL 

8 0 36.* 

44* 

30* 

label 

8 0 06  7 

1 17 

743 

Ei  TEFNAL  «001* 

1* 

167  177 

323 

LABEL 

8 0023 

133 

1 00 

E/TEFNAl  80011 

17 

*34  *74 

*7  - 

E TEFnAl  « ••'.'1C 

1 7 *06  *27 
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1*1  VI  HE 

EXTERNAL  *s  OP  OB 

IE 

EOS  El  1 

E3E 

366 

369 

380 

DPP  BUFF 1ft 

GLOBAL 

00009 

El 

197  673 

70E 

DPP  BUFF IB 

GLOBAL 

0OOOC 

EE 

688  703 

DPP  F UFFgft 

GLOBAL 

<t  0 0 OF 

EE 

355  747 

776 

DPP  BUFF£B 

GLOBAL 

st  0 0 1 E 

E5 

76E  777 

DPP  PPIMT  INTP 

EQUATE 

09800 

48 

461  579 

640 

828 

ENTEP 

EQUATE 

00003 

58 

97 

EPPPP  OUT 

EXTERNAL  00011 

14 

3 06 

fip:t  ftgi 

LABEL 

s»0«P? 

Gc-  9 

686 

fip:t  Pi.sa 

LABEL 

st  0558 

741 

76  0 

FP  ftDI* 

E TEPMAL  stOOOA 

IE 

60S  631 

FP  MUM 

Global 

stOOEF 

37 

1 S 3 191 

£03 

El  3 

Eel 

341  349 

361 

371 

1:78 

604  6E7 

PC  OUT  Ff-,r 

external  «ooi7 

i*= 

E 36  £41 

£45 

E5E 

£56 

E63  £70 

£74 

£81 

E88 

394  399 

403 

41  0 

414 

4E1  4E8 

4 BE 

4 39 

444 

438  501 

5EE 

t - e 

INITIALIZE 

LABEL 

0O5CE 

80E 

73 

input  duff 

global 

st  0 0 0 0 

EC 

116  1E9 

153 

£59 

E77 

311  417 

4 35 

476 

INPUT  EPPDP 

LABEL 

00058 

107 

475  506 

540 

544 

IMT'TDFP 

EXTERNAL  0 0018 

16 

E 04  36 E 

605 

6E8 

IMTEPPUPTIOM 

LABEL 

80038 

k .’BD  IN 

EQUATE 

07800 

50 

90 

* VDI  INTP 

EQUATE 

ti  B 8 00 

44 

1E0  134 

458 

8£t 

LftPSEP 

EXTERNAL  st  00  OF 

1 ? 

ZyZtZt  C,£0 

cENGTn  Ur*  jUt 

EQUATE 

s:  0 0 0 0 

61 

483  5 It 

wE'<-th  AAuGE 1 

global 

8 0095 

3 c 

El  5 £4  0 

486 

91 


LENGTH '6HUGE£ 

GlOBHl 

&008E 

32 

373  388 

518 

MHX  CHLIBFHTIDM 

ECUHTE 

«00£1 

68 

Mm  : fehping: 

ECUhTE 

::  00  3£ 

68 

me  hn 

ExTEFNHL  “001 6 

If. 

131  138 

338 

347 

HE Hf 4 CHL1 

GLDBHL 

«00f  B 

£7 

168  17£ 

187 

£ £ £ 

;<c(c 

MEHH  CHl£ 

GLDBHL 

~ 0 066 

28 

327  330 

345 

380 

413 

HERN'PDGl 

GlOBhL 

«004B 

£ 6 

158  16£ 

178 

£14 

MEHM  FTG£ 

GlOBhl 

« 0 054 

£7 

317  3£  0 

337 

37£ 

431 

MEHM  TIME  1 

GlOBhl. 

Js  0 O r 3 

30 

£08  ££6 

£ 35 

MEHM  TIME£ 

GLOBHL 

isOOEC 

31 

367  334 

3*83 

MEHH1 

LHBEL 

iiOOCB 

173 

Iff 

MEHH2 

LHBEL 

«0£46 

3 36 

31  3 

MDPE  7EFD: 

LHBEL 

::  05E6 

8£  0 

8£4 

MULT 

E TEF  MHj_  *•  0 0 OC 

1 £ 

£16  £18 

££4 

££7 

374 

377  332 

365 

NEG  I IGf- 

EOUHTE 

tr  i 

si  0000 

MEG  TPU  POL HP . 

.*  1 

EOUHTE 

::  o 04  0 

f 4 

537 

CHL  1 

GlOBHl 

s*0E£6 

4 0 

167  173 

138 

700 

HUM  CHL  £ 

GLQBhl 

« 0E8H 

41 

3£5  331 

346 

774 

MUM  P&G' 1 

GLOBHL 

JJ00F6 

3c: 

141  157 

163 

180 

6?  3 

HUM  PI»G  £ 

Gi_DI;ml 

::  0 1 &F 

38 

£84  315 

3£1 

338 

MUM  T I ME  1 

GLDBhL 

ss  008 1 

£8 

185  £00 

£0£ 

6 08 

MUM  T IME£ 

GlOBHl 

“003£ 

30 

353  358 

36  0 

632 

MUMi'EP  CHL1 

GlDIhl 

« 0 OC  I 

2®, 

1 8£  £51 

MUMfcEF  C Hl£ 

GLDBHL 

"00  It' 

?*•  0 4 0* 


! 


i 


^ — — - —“ — 
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NUMBEF  F'I'C'1 

GlDBAL 

35 

s:  001*4 

1 84  868 

NUMBEF  PBG6 

GLOBAL 

«00E6 
348  487 

Oti  DELA  • 

label 

808 

is  05CE 

318- 

ONE  TWENTY 

LABEL 

si  05BC 
818  376 

OUT  :el 

E O'.1  ATE 

45 

siB  000 

PDF  AND  PET 

label 

838 

s:06DD 
801  808 

PDPT1 

EQUATE 

68 

si00E4 

558 

PDPT8 

EQUATE 

63 

s*00E5 

561 

P'DFT  3 

EQUATE 

64 

ss00E6 

56  3 

POPT4 

EQUATE 

ssOOES 

65 

<r,85 

PDPT5 

EQUATE 

s:  00E8 
537  617 

POFTE  , 

EQUATE 

Si  0 0E  A 

681 

PD*  3 I6N 

EQUATE 

C 

si  0 03  0 
108  306 

PCI  TPU  PDLAPY 

EQUATE 

si  0 0 0 0 
108  306 

PFim  ftl'V 

EQUATE 

4*: 

ssA&OO 

PRINT  DELAY 

EXTERNAL  Si  001  3 

14  636  810 

PP I NT OUT 

E::tefnal  ssooio 

13  113  833 

416 

416  46! 

441 

446  48 i 

537 

8 35- 

PDG  D1FF  1 

GLOBAL 

si  00F8 

PDGPIFF  8 

GLOBAL 

si  0 1 8 0 

PDG  1 

LABEL 

*i  0 1 B 1 

867 

661 

FDG8 

LABEL 

si  0 38C 

465 

418 

FEAD  DPP 

label 

Si  04 17 

550 

83 

FEF  EAT 

LABEL 

s:  03  70 

453 

457 

FEIET  DF 

EQUATE 

s:8  0 0 0 

48 

460  86" 

F'EIET  1 i’BD  INTP 

LABEL 

118 

SJ006D 

986 


831 

831 


64  3 847 

4 01  4 05 
4 3 0 4 34 
503  584 


I 
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FIT  TIMER  BUSS 

FTN 

SAVE  DFF  DATA 

:i::ty 
I FACE 

i t ac  ► 

I TAF  T 

:td  dev 
:td  dev  lml i 
ITD  DEV  CALc 
ITD  DEV  PDG1 
ITD  I'EV  RDGc 
I TOP 

I TOPE  BUFF 

:um 

SUM'  OF 'SOLVES 
SUM  TIME1 
:».«M  TIME  8 
TPAMl  DATA 

THAN  DM  DELAY 
ZEFD  MEM 

BIAL-30  85.  8.3 


EOUATE 

«A000 

47 

45*  63* 

718 

798 

LABEL 

s:  04  A E 

64  0 

781  795 

LABEL 

« 06  06 

850 

674  689 

748 

76? 

LABEL 

*05C5 

7*8 

810  368 

. r*js  c i u 

external  «sooi8 


14 

114  634 

839 

843 

866 

884  689 

890 

307 

398 

397  406 

484 

448 

447 

448  491 

504 

585 

538 

836 

eouate 

s:  3C  6F 

4 3 

73  450 

451 

315 

317 

8 1 8 

ENTRY 

<»  00  00 

1 1 

external  «ooi5 

15 

161  171 

319 

389 

global 

ss  00 19 

£5 

1 68  866 

GLOB'  Al 

si  0048 

86 

366  480 

GLOBAL 

ss  008 7 

84 

158  880 

global 

si  0 0 ? 0 

316  433- 

label 

si  0 0 OF 

81- 

34 

LABEL 

ss  0336 

465 

93 

global 

si  0 0 1 E 

84 

807  817 

830 

365 

388  600 

68? 

908 

965 

930  940 

947 

348 

951 

958  955 

95c 

957 

96  0 

96 1 968- 

96  3 

GLOBAL 

si  00 15 

83 

885  383 

global 

s:006F 

83 

8 Or  60c 

global 

si  0073 

69 

364  689 

EXTERNAL  si  00  01' 

16 

185  1?? 

34  3 

351 

950 

934 

EOUATE 

si  0 ii  £•  8 

76 

309 

F.XTER'NAL  « 0 0 OE 

i:  111  454  Sic  881 

r?  n 67  i ? : i c: 4 o 
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FLOATING  POINT  PROGRAMS 
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BSAL-GO  35.2.3  73  1 1 ' 23  12*  IS:  57 

♦♦♦♦♦  o error:*  o waning:,  see  o 


: D.iPCE  file 

= 

D*  2*  WALT  ADD. EDT-0 

OBJECT  FILE 

= 

10  2: WALT  ADD.OBJ-O 

0 o 0 0 1 . «.i  ■ 

1 

1 

0 1 1'E 

0 ft  (1  0 £ . I.l  1.'  1 1 

2 

1 

00  CP 

f CONTROL 

NAME=FP  ft  I*  I* 

0 fl  I I fl  ; . Ij  0 1 

5 

1 

0 0 0 o 

ItCONTFOL  NOL 1 I T 

oo  c 04 . o o «: 

4 

1 

0000 

^CONTROL 

li:t.  ihherlijt. table, era: : 

0 :'i  0 f i 5 . ij  0 0 

7 

1 

0 0 0 0 

•.'  t <•*  . 0 0 0 

6 

1 

0 0 0 0 

I.l ...  ! ■ I.l  . 00  1.. 

7 

1 

0 0 0 0 

r.i  - or . 

.5 

1 

0 0 0 o 

♦♦ 

♦ ♦ 

0001 0. 000 

4 

1 

0000 

♦♦ 

ADDITION  ♦♦ 

0001 1 . 000 

10 

1 

0000 

♦♦ 

♦♦ 

0 0 0 1 2 . 0 0 0 

11 

1 

0000 

00014 . 000 

12 

1 

0000 

0 0 0 15.  0 0 0 

1 ? 

1 

0 0 0 0 

add:  two  nine  byte  floating  point  numbers 

0001  5.  1 00 

14 

1 

0 0 0 0 

following  FORM  TO  GIVE  ft  NINE  BYTE  RESULT. 

0 0 017.  0 0 0 

15 

1 

0 0 0 0 

0 • ' 0 1 . 0 0 0 

16 

1 

0 0 0 0 

'DD  DD  DD  DD  DD  I'D  DD  I'D  1 1 GN*  EXPONENT / 

i.i  0 0 1 3* . 0 0 0 

17 

1 

0 0 0 0 

00030. 000 

13 

1 

0 0 0 0 

INPUT  BC  POINTER  TO  SUM 

i.'OOi  1 . 000 

1 ? 

1 

0 i.i  0 0 

DE  POINTER  TD  1ST  NUMBER 

0*'022 . 000 

2 0 

1 

0 0 0 0 

Hl  POINTER  TO  2D  NUMBER 

00 02  2.  000 

21 

1 

0 0 0 0 

00024. 000 

22 

1 

0 0 0 

RETURN  HL  POINTER  TO  SUM 

0 ft  0 2 7 . 00  0 

2 3' 

1 

0000 

. . 2 . 0 0 i. 

24 

1 

0 0 0 

ehtr  ,• 

FR-'ADD* uERT  JUST! 

o i.  i,  £ 7 . i.i  0 1.* 

25 

1 

0 0 0 0 

Ot  . - : . Oil.  .; 

23 

1 

00*'.  0 

*_C3  r*i_ 

TEMC  S ' r • M SI  G MUM  FT  * £ > • 

0 ;.!  ii2  2 . 0 0 0 

2 7 

1 

II II  i.  fl 

l ns  Hu-'-'  ft • £ • . expqn  oiff. 

nn 02'  ’J . 1 0‘* 

2' 3 

1 

0 0 f • ■ 

i'E;  :P0iN  = i'E.'.r'u  N I*  IFF; 

0 0 3 f . 0 0 

27* 

1 

Mill'  1- 

• 1 0 21. 0 0 0 

? i.i 

1 

I'l  fl  f.  1 . 

EXTERNAL 

LftRGEF  • TRAM 3 IiftTft.  TRANS  DATA  LEFT* 

> •■:2.ov*f 

M 

1 

000*. 

ZERO  MEM*  DEC  ADD*  DEC ' SUB* 

i.  • ' : 3 . o o f 

7- 

1 

0 0 0 0 

... i. ;-4.  Oi.  ii 

3:3- 

1 

0 0 0 0 

22 OB 001  FP  ADD! 

t_  3 I G HUM  F T =hi_  • ! SAVE  POINTER  2D  NUMBER 

i.o •; : : . Of  o 

24 

1 

0 0 0 3' 

El 

I'E  ==  Hl  • 

0 i.i  i i.  - . 0 1 . i 

}:f. 

1 

0 i'i  04 

22  0 ■*  u 0_ 

M SIG  NUM  PT»HL • ! SAVE  POINTER  1ST  NUMBER 

'‘•i.i'  * 7 . 000 

2> 

1 

0007 

r 7 

TO 3 =BC • ! SUM  POINTER 

00 C 1-2.  000 

27 

1 

0 0 0 ; 

F INI 

THE  MORE  SIGNIFICANT  NUMBER 

0 0 0 3' ? . 00  0 

33 

1 

0003 

1H 

ft=MEM 'DE* • 

00040. 000 

3? 

1 

000  ? 

E*7F 

H=ft  AND  ~7F • ! MASK  OFF  EXPON 

00041 . 000 

4 0 

1 

0001 

07 

f:lc  i 

Mo 042 . 000 

41 

1 

0 0 0 1 

h7 

ft  — r*  ftNIi  ft* 

1 1 1 1 : 1 4 I . 00  0 

42 

1 

0001* 

37 

CARRY* 1 ; 

i.' ...  i 44.  0 M 0 

4? 

1 

OOOE 

FA1200F 

IF  POSITIVE  THEN  CARRY*N0T  CARRY! 

1 

0 0 1 1 

}:F 

0 I I 04  7 . o 0 0 

44 

1 

0 0 1 2 

IF 

R'AP  * 

" ■ • 1 4 — . Oi  l 

47 

1 

0 0 1 3 

4r 

C=A!  ! EIGHT  BIT  £::PDM  2D  NUMBER 

>.»  . .4  ~ . I.>i.i 

4- 

fl  114 

7E 

A® MEM • H_ ■ • 

, ii.4  : . i ' i • i 

47 

1 

Mill  7 

E37F 

A=h  AMD  u7F!  • MAS V OFF  E>RDN 

4 

4 - 

: 

•'•17 

07 

RL*3  • 

i . . 07  t . i . 

4 

i 

».»  1 

A 7 

A®ft  AND  A* 

I 


000*1 . 000 

f 0 

1 

001  H 

67 

CRPPv*i t 

000?.i . 000 

fi 

1 

0 0 1 H 

FmIEOOF 

IF  F’O 3 I T I VE  THEM  C F»F  F . *HD7  PF  F . i 

1 

0011' 

3F 

mm  Of.  • . 00 o 

56 

1 

(.(lit 

IF 

EHE  ! 

00  Of  4 . 00  I* 

c - 

1 

00  IF 

47 

*“*’•  ! EIGHT  IIT  E EON  1 : T NIjnlEF 

l'l  It  !'!*■  ■=■  .I’ll  . 

f 4 

1 

0 06  0 

Hi 

*«*-.: i ! qf t'EF  i ; t piinu:  oust  ei. 

OOCfc » OoO 

re 

1 

0061 

If  NEGATIVE  ! E/.FOl*  in  a EXEON  EI 

000:7. 000 

*'C 

1 

006'  1 

EE  54(1  Of' 

them  fe?im  • :u'itch  pdimtef: 

00 Of : . 000 

c ~ 

6 

i'i  Oi  4 

6'iH  0 ? 0 Oi. 

Hu*M  3 16  MUM  fTl 

Omi'i?  •».  ooo 

56 

z 

0 06  7 

El 

Hu  **  DEi 

l.u.iu-  V . 000 

cr z* 

6 

006  6 

6H0i  OOi. 

Hu*u  : 1 G II.IM  fT". 

- 1 . i r o 

60 

6 

006 1 

66  >.  H i.'iJw 

M 3 1?  MUM  FT*H.J 

0u066.  000 

c-1 

6 

00£E 

El: 

Hu  * **  lei 

000c  . 000 

66 

6 

006F 

660F00L 

L : I?  MUM  F-T«Mui 

00064. 000 

63 

6 

0036 

7'H 

h*r ; 

0 0 0c  * . 0 0 0 

64 

6 

003? 

HO 

GsG-I.  • 1 1 EE  III  [ EOMEMt; 

00 Mr  r . 00 1 

65 

1 

0034 

EMM 

00  Mr  7 , f Ml. 

6c 

1 

0 0 2 4 

?601>00w 

E ’PDM  IIFFsh:  ! 3h.‘E  TIFF  IM  £ FQM 

0’.' Or  ; . 

67 

1 

00  2-7 

IF  ZEFG  ? 2HME  E . :FDM.  F ] MI*  LHF6EF 

Oi.i  Or  r . 000 

c 3 

1 

0 0 3 7 

C 6'f  r«  o OF 

THEM  FE? I M • nfMTJZ:* 

00070.  0».‘0 

r.  H 

j 

CUT* 

6h OH OOw 

Hl *M  3 13  MUM  FT! 

( 071 , 0 00 

7 0 

6' 

0 0 ; I' 

El 

HL  =*  IE! 

C ■ ~ 6 . 0 0 1.1 

71 

6 

0 0 36 

6'rlOI  OOw 

Hi_=u  : 13  MUM  FT! 

i'i  07 : . ooo 

76 

6 

0 04  1 

6 3 

Hi_  = Hu  ♦ 1 i 

0 1.  074.  0 0 1 • 

7 3: 

6 

0046’ 

13 

I*E*IE*1  * 

0 '11.17? . 0 0 

74 

6' 

004  ; 

0606 

£*•35 

i ■ . i ~r  . 00' 

6 

004* 

3 !•  0 0 0 0. 

CrtuL  uiHF3EF« 

00 * 77.00 0 

7r 

6 

004  3 

Of 

F = F - 1 • 

0 v 0 7 ; . 0 0 0 

'7 

6 

0 04  H 

IF  ZEF'D  S LEH37  2 13  « MDFE  21? 

0 : ■ “ r . o o 1. 

7 1: 

6 

0 04  - 

2 6*h  0 Or 

T He M FE3IM  ! :.,'IT.:h  FClfiTEFI 

r o . 0 o m 

7 - 

o '4 ; 

6'hOHoOw 

Hl =M  213  NUM  FT! 

0 o 0 ? 1 • 0 0 1 

0 

0 ».<4r 

El 

HL  ==  I'E  5 

i'i  0 0 :£  . 0 0 0 

61 

0 Of.  0 

6 m OF  006 

HL=u  2 I 3 MUM  FT! 

i.i  • Or;.  0 • • • 

26 

0 Of  I 

6 6 0 H M i.u 

M 2 13  MJM  F'T*hl: 

■ i i 

= : 

*'i »’  f r 

El 

I'E  ==  Hu  ' 

• ' ' • : 7 . 0 1 ' 

:-4 

0 " 

6601 00L 

L 2 1?  f*t  shl  « 

1 1 : . 7 r . 0 0 0 

:•?. 

6 

0 Mf- 

EMM 

" ~ . 0 0 *. 

3 c 

6 

i.i  r f ~ 

•2  2 z-r  OOF 

G3TE  Turl'l : f £C  • 

M -li  :•  ; . I.'  O' 

•:;7 

1 

0 051 

EMI*; 

Ml.'  . • ullf 

3 ; 

1 

Oof  I- 

IF  THE  I' I FF£F EM'2 E I"  £ 12  . 3E . 16 

I.I  1.  1.  ; r . 1 I.I  I.i 

H 

1 

0051. 

DI31T2.  LEmI T 6I3fUFKHMT  NijflFEfr  Hf'PF'O.^  0 

0 0 H 0 , 0 0 0 

HO 

t 

oof-r 

SUM  = HI3HEF  DFDEF  NUMFEF . 

000 HI . ooo 

HI 

1 

0051' 

3r»0I'00L 

a*expon'I»iff; 

l'l  MM  -i.  , 00  ( 

H6 

1 

0 Oc  0 

FEU 

H- 16* 

0 2 . 0 0 0 

H 2 

1 

0066 

IF  CFIPF".’*0  ! IMHuLEF  MUMFEF  I M 3 1 3M I F I CHM 

I.' I.'  o H4 . 000 

H4 

1 

I.I  l.tr. ,2 

ImH74  00F 

THEM  It Gin 

Mm  - ? , i'i r* r 

Hf 

6 

0 Oc  f 

6*H  i'i  H 0 OL 

HL=M  31?  MUM  FT* 

f M He  . 0»" 

He 

6 

00c  r 

ei 

IE  *=  HL  i 

MMM  -7  . 00'. 

*7 

6 

0 Or  •* 

El 

hl=td: : 

• 1 ' ’ i ‘ 7 : . 0 0 0 

H'r 

I 

0 Oc.H 

Oc  O H 

B*?5 

• ■ • 00*’ 

-- 

6 

li  Or. 2 

•3  I'M  l-MM 

•2HuL  Trri'v  IihTh!  f 2UM*  HI3HEF  DFFEF 

; ; ' t|U  1. 

1 Ml, 

6 

0 Mr  s 

6 1 F 7r F 

hl* 

m : ] . . ... 

1 '•  1 

0 076 

r- 

Hws-iw  ♦!.£••  i F ^ I fiTc  F TZ  2UM 

• ; ...  i ■ i i. 

1 06 

1 

».•  07  ; 

■1  H 

fetufm: 

• 1 • 

i u: 

1 

0 0 7 4 

EMI'S 

001  04 
001  04 
001  0? 
001  0c 

ooi  or 
0010: 
001  Of* 
001  1 0 
001 1 1 
00113 
001  1 ? 

00  1 14 

00115 

0011© 

00117 

001  i •: 
001  1 3 

0"lil 
0 '.-133. 
0 0 1 £ ; . 
C 01  £4 
001  35 
001  3 c 
0 C 1 £ 7 
C o 1 1 : 

i.  U 1 30 

ooi : i . 


o v i : £ . 

l.-'l  2-  2 . 

001 £4 . 


<«.,  140, 
l.t  »J  1 4 1 , 

0 0 1 4 £ , 
00 14  3. 
mu  144 
mi  144 

001  4*. 
00  1 4- 
M m 1 4 7 
0 0 1 4 £ 
M *'14  - 


0 0 C' 

1 04 

1 

0074 

SHIFT  THE  LESSEE  NUMBER  RIGHT  BY  THE 

1 00 

1 OT- 

1 

0074 

DIFFERENCE  IN  EXPONENT  HUD  PLACE  the 

0 0 0 

IC* 

1 

0074 

RESULT  IN  THE  SUM. 

000 

107 

1 

0074 

IF 

RAF!  ! D1FF  IN  EXRDN 

0 0 0 

1 03 

1 

0075 

IF  CFlRRY*  1 ! DIFF  IN  EXRDN  ODD 

0 0 0 

10* 

1 

0075 

Ii33F  OOF 

THEN  BEGIN  ! SHIFT  LEAST  SIG  a ■ DE ■ LEFT 

0 0 0 

110 

£• 

007? 

• DUE  DIGIT  INTO  SUM  <HL> 

Ci  Ci  0 

1 1 1 

£ 

0073 

1 1 OOOOL 

DE  = i'TEMF'  SUMS  ! SUM  POINTER 

Ci  0 0 

Hi- 

£ 

0071 

33 OE  OOL 

HL=L  SIG  HUM  RT! 

0 0 0 

ll:-: 

£• 

007E 

EF 

DE  *=  Hl.1 

1*1  i*i  0 

1 14 

£' 

0 07- 

1 3 

DE=DE+1 8 

0 I.I  I., 

115 

£' 

0 03  0 

06  03 

e»s« 

000 

1 16 

£; 

0033 

CD 00 OCX 

CALL  TRANS 'DATA -LEFT! 

000 

117 

3 

0035 

31  or OOL 

HL-iEXR’ON'DIFFS 

0 0 0 

1 13 

0033 

3*. 

MEM(HL'=MEM'HL>-1! 

0 0 c* 

1 1 3 

: 

0 0 £ 

>2  3E  2:  0 Mr 

IF  ZERD  THEN  GOTO  SIGN  CHECI  8 

0 0 0 

130 

003C 

END 

0 0 

131 

1 

0 0 £ £ 

2 ££E  00= 

ELSE  DEGIN  ! PUT  LEAST  SIG  a INTO  SUM 

0 0 0 

133 

£ 

0 0 ?r 

33C.F  00  c. 

TRANSFERS  Hi_=L  SIG  HUM  FT  8 

0 0 0 

133 

£■ 

00 1*3 

EF 

HL  *=  DE! 

0 0 0 

134 

£ 

0 0 ? 2 

3 1 0 0 0 C'L 

HL=iTEMR  SUM!  • SUM  POINTER 

0 if 

135 

£ 

0 03c 

Oc  0 3 

las'! 

0 0 1 

13c 

£ 

0 O'-* : 

: i'  i.i  o o ij: 

•SAlL  TRANS  DATA! 

0 0 0 

137 

1 

0031 

END! 

C*  C 0 

133 

1 

0031 

2:3  OIi  0 C'L 

SHIFT  DiTE:  A=E::RONi  ! SHIFT  RIGHT  DC  BYTES 

Ci  Ci  0 

13?* 

1 

003E 

OF 

RPC!  ! DIVIDE  DY  c>  a BYTE  SHIFT  PT 

0 0 1 

130 

1 

003- 

37 

H=ii  AND  A! 

i.t  C 0 

1 31 

1 

0 Or*  Ci 

•2  3F3  C;C 

IF  ZERO  THEN  GOTO  SIGN  CHECH 

1 0 0 

1 3£ 

I 

i>  Mri  £ 

! SHIFT  COMPLETE 

0 o 0 

1 32 

1 

0 03  2 

06  0 04- 

£:=■;.!  C=A!  ! a BYTES  TO  BE  SHIFTED 

0 0 

1 34 

1 

0 i.i  3 c 

3E03 

A-j: 

0 0 0 

135 

1 

0 03.? 

31 

rt=A-C!  ! a BYTE  REMAINING  IN  NUMBER 

0 0 0 

1 36 

1 

00  A 3 

31 01 OOL 

HL*iTEMF  SUM'l'i 

0 M 0 

1 37 

1 

0 Ci—  I 

545Ii 

D=H! c*c ! 

0 * i i.i 

1 3 ?• 

1 

0 '."-*? 

0 3 

hl=hl+b: ! 

0 0 1.* 

1 3?* 

1 

0 03- 

EE 

Hl.  =*  Ii£! 

0 M 0 

140 

1 

OOI  o 

47 

B*A! 

0 0 0 

141 

1 

C OE  1 

:rc «: 

SAu*.  TRANS  DATA! 

M |l  1 . 

14£ 

1 

Ci  C'E  4 

41 

B=S ! 

II  f.  Ij 

MI- 

1 

0015 

1 1-  ij  0 0 0 

c A^i_  ZERD  MEM!  ! ZERO  uEADING  BYTES 

0 0 0 

144 

1 

0 OF? 

EXPONENTS  NO**1  EOUAl . MANTISSA  OF  LEAST 

000 

145 

1 

OOF? 

SIGNIFICANT  NUMBER  IS  IN  SUM.  CHECK  SIGNS 

0 0 0 

146 

1 

OOF : 

AND  CALL  DEC  ADD  OR  DEC 'SUB  AS  REQUIRED. 

1 1" 

147 

1 

COE  I 

0 *.• " 

143 

1 

OOF  : 

£3  OF  ij  OL 

SIGN  CHECK!  Hc=L  SIG  NUM  FT! 

0 i.i  0 

14- 

1 

0 'll 

7E 

A=MEM ■ HL ■ ! 

Ci  Ci  o 

150 

1 

OOFC 

£ 3 0 3 0 OL 

HL=M  SIG  NUM  FT! 

0 0 0 

151 

1 

OC'Er 

3E 

A=A  ..OF  MEM  * HL  i 5 

0 0 0 

153 

1 

ooc  0 

£630 

F|sA  AND  acO!  ! MAS!  OFF  XDF  OF  SIGN. 

0 0 1 • 

151 

1 

0 0 2 3 

IF  ZERO  ! SIGNS  THE  SAME 

Ci  ii  i . 

154 

1 

tj  Ci -2  £ 

.2  3 1 .2  0 1 F 

THEN  BEGIN  ! ADD 

I.I  1 . 1* 

155 

£ 

Ci  i, ; 5 

3101  0 1 1*_ 

MC  = «'TEMr  : un  • ! • : 

Ml  1 

1 5c 

£ 

Oij  £ £ 

EE 

DE  ==  Hu!  ! DE  SD  a MANTISSA  It,  SUM 

, o I I C* 

157 

£ 

Ci  0-2  3 

4£  4 E 

B*D«C*Ei 

PpiuTHIh  If'  I'JM 


98 


00 1 5*5- . 000 

158 

8 

00 

1 

chO?OOL 

HL*M  Hi?  MUM  PTJ  • 

1ST  NUMBER 

0015*.  0“0 

15? 

8 

00. 

E 

S3 

Hi_sHL*  1 • 

i.i v If'".  000 

lei1 

8 

00- 

F 

3c  Oe 

Fl*85 

0 0 15:. 0 0 0 

lc  1 

£■ 

oon 

C #0000: 

CftLL  I'EC  WS 

0015  ?*.  001, 

lee 

t 

001.4 

IF  CARRY* 1 ! 

OVERFLOW 

001c  0. 000 

1*2 

£ 

001*4 

I»c  1 3 0 1 F' 

THEN  BEGIN  f 3H1F.T 

RT  1 BYTE  />  LEFT 

001c 1 . 000 

1*4 

001.7 

! 1 DIGIT 

t 1NCR  E>IROMENT 

00l*c. 000 

1*5 

00Ii7 

clOOOOL 

Hl=stemf  ium:  • 

SUM  RD INTER 

0 01c  2 . 0 o 0 

1 *c 

0 0I1F1 

1101 OOL 

de^temf  : um  ■ i • ; 

001c- 4.  000 

1*7 

00 1' I 

0*  03 

B=8S 

001c- 5.  000 

le-3 

OOItF 

C DO 0 00: : 

CALL  TRAN I DATA! 

! MOVE  RT  1 BYTE 

00  lee.  00 0 

1*? 

OOEc' 

3*  0 0 

MEM-HL f *05 

00167. 000 

170 

3 

00E4 

S1F7FF 

hl= 

00166. 000 

171 

£: 

ODE  7 

1 9 

HL =HL  ♦!•£  5 

00169. 000 

17c 

3 

00E3 

5451' 

D*h;e*l* 

0 0 170.  0 0 0 

1 72 

}: 

0 OE  f* 

Oc-OS 

B*s: 

0 0171. 0 0 0 

174 

o oe  : 

1 1'  0 0 0 ('.  1 

chcl  tram:  data  left;  • move  left 

001 7c. 000 

175- 

OOEF 

1 1 Or  00 

DE=3« 

! ONE  DIGIT 

001  7 000 

17* 

0 OF  c 

1 ? 

H(_=He-*-I'E  5 

00174. 000 

1 77 

0 OF  £ 

3E  1 0 

ft*«l01  ! HI* I* 

OVERFLOW  DIGIT 

001 75 . 000 

1 7S 

3 

0 0? 

B* 

A—A  MEM-HL  *5 

001 7*. 000 

17? 

(i  0? 

c 

77 

MEM  * * =A1 

0 •.'177.  0 0 0 

1 8 0 

('  Oe  7 

£m  0 ? 0 Oi_ 

HL-M  1 1 G HUM  RTS 

0017c-.  000 

181 

0 0-  ^ 

7E 

A*MEM-Hl.  • 5 

n 0 17?.  00  0 

1 38 

(l  (1= 

l 

47 

! 

I ft V'E  FOF  IIGtl 

00 ISO . 000 

1 : I 

oorc 

E*7F 

A=h  AMI'  «7F5 

0 01  : 1. 0 0 0 

184 

(i  Or 

E 

07 

RLC  5 

00 lie. 000 

1 3-5 

OoFF 

h7 

A=H  AMI'  H • 

0 01*1. 0 0 0 

0100 

£7 

C Ar'F  i = 1 » 

t'  0 1:4,  0 ».» 0 

1-r- 

01  01 

F m 05  0 1 F‘ 

IF  RDI1T1VE  THEN  CAFF  , = MOT  CARRY* 

0 1 04 

3F 

001  I'5 . 000 

lS': 

0 1 05 

IF 

RAF  • f 

3 BIT  EXROM 

001  Sc . 000 

12? 

('  1 Oe 

3C 

A=A-f  1 : • 

I MIR  EXROM 

0 i.i  1 : 7 . 0 0 0 

1 ?(• 

0 1 

7 

E*7F 

A*A  AMI  «7F5  ! 

MrO  OFF  EXROM 

0(1 : : . OOO 

1 ?1 

01 

9 

4- 

C=h: 

0 ; i ? . 0 0 0 

i ?: 

01 

H 

7S 

h=i  ; 

i.i  i.i  1 ?•(•.  oO  0 

i ?:•■ 

01 

l 

E*SO 

h=A  AND  «S05  ! 

MR If  OFF  IIGM 

(ii.  1 > 1 . (•  ( 1 1 

1 -4 

l 

11 

OF  C 5 

0»:  1 ?*£ . 00  ( 

1 ?5 

01 

E 

El 

Hw=Tc: i 

oo i ?:-.  ooo 

1 ?c 

0 1 OF 

77 

MEM • He > *Hi  ! SIGN 

<:  EXRDN  OR  SUM 

001 ?4. ooo 

137 

0 1 1 0 

EMI' 

001 ?5. OOO 

1?? 

£ 

(1 1 1 0 

C31901R 

EL IE  BEGIN  ! NO 

OVERFLOW  DIGIT 

0 0 1 ?c  . 0 (i  (' 

18? 

o 1 1 

Sfl  (■'?(' OL 

hl*m  : ig  numpt; 

t I TORE  IIGN  e 

( 1 . 0 * ' 0 

c ('  (' 

0 1 1 * 

7E 

RsME^Hu • 5 

! EXROM  IN  IUM 

00 1 ■*;  , OOO 

SOI 

on 

7 

El 

hl-to: 5 

0 01  ? ? . 0 0 0 

8 08 

0 1 1 ! 

77 

MEM-Hl.  • =h! 

OOS 00. OOO 

c 0 1 

£ 

0 1 1 •? 

Etu*5 

(t £ l.,  1 . OOO 

cl  04 

£ 

Oil? 

EMI* 

( Oi. Oi . OOO 

8 05- 

1 

on? 

C •••f'  ^oiF- 

EL1E  EE6II-  ! :I5n:  MEFESEMI-  eustpsct 

00c 0: . OOO 

8 0* 

£ 

0 1 1 C 

8 1 0 1 0 OL 

H^.iTEMF  : I.IM  - 1 ■ : • 

IUM  RQINTEF 

0 Oil  04. 00 n 

SO  7 

£ 

01  IF 

El 

Hi_  * = I‘t  1 

00c  05 . 0 Oi 

£ 0 1 

£ 

f 1 3 o 

4341 

l-MC-EI  ! F2 1 hTEF 

TO  IUM  MHf*T  1 1 IF. 

0(.£ ii-  . 00 »• 

8 0 ? 

0 1 

-<■ 

3i?0?00k. 

: 1 6 |«0H  F 1 1 

■ 

99 


G0£ 0? . 000 

£10 

2 

01  £5 

23 

Hu=HL*H5 

00206.  000 

21 1 

2 

0126 

2E  06 

6*8  5 

00209.  000 

212 

2 

0126 

C *0000' ' 

CMLL  DEC 'SUES  ! DC  MOD  OF  RECOIL  T 

00c 1 0. 000 

21  2 

2 

012* 

2 IF 8FF 

HL*  —25 

00£1 1 . 000 

214 

2 

012E 

09 

HL=Hc*BC5  ! MANTISSA  OF  2UM 

0021c.  000 

215 

2 

012F 

06  06 

S=Si 

OOcl  S.  000 

216 

£• 

0131 

0005010 

CMLL  LEFT  JU'Ti  ! RETURN:  B « DIGITS 

OOi.1-4. 000 

217 

2 

0124 

! SHIFTED*  B oFF  IF  NUMBER  0 

002  15. 00 0 

212 

01  24 

2EFF 

6*s:FF • 

0 0216.  000 

21  2 

2 

0 1 26 

*8 

6-*5 

0021 r. ooo 

220 

2 

0127 

IF  ZERO  ! RESULT  IS  ZERO 

00212. 000 

221 

2 

0117 

C241 OIF 

THEN  BEGIN 

00219. 000 

222 

3 

013m 

El 

HL=T02  5 

00220. 000 

222 

3 

013* 

3E00 

6=05 

00221.000 

224 

3 

013* 

77 

MEM  <HL> *65 

00222 . 000 

225 

3 

01  IE 

END 

00222.  000 

226 

2 

012c 

C 35301 P 

ELSE  BEGIN  ! DECREMENT  EXPONENT  BY  B 

002c 4 . 000 

227 

2 

014  1 

26  o - o 0_ 

HL=n  115  H'JM  ft; 

00225. 000 

2' 2 2 

2 

0144 

7E 

6=MEM-Hu • 5 

0022c..  000 

22  - 

2 

0145 

c — 

*=65  • 26 Vc  I I6N 

00227. 000 

2 2 1 

0 1 46 

E67F 

6=6  6M*  «7FS  ! M6I*  OFF  EXPON 

00222. 000 

221 

2 

0141 

07 

RLC  5 

002c  ■* . 000 

2 22 

3 

0149 

67 

6=6  6t>*  65 

002  SO. 000 

2 2 2 

2 

0146 

F24E  OIF' 

IF  NEGATIVE  THEM  C6PPV*  HOT  CAPPY5 

3 

014* 

2F 

0 02  2 1 . 0 0 0 

2 24 

2 

014E 

IF 

P6P5  ! 8 BIT  EXPON 

00222. 000 

2 2C. 

2 

01 4F 

90  IiECF'R: 

6=6-*5  ! EXPON  OF  MDIT  216N1F 1C  ANT 

0022c. 000 

2 2 c 

2 

0150 

■ NUMBER  MINUS  NUMBER  OF 

00c ; 4 . 000 

2'  27 

3 

0150 

! DIGITS  SHIFTED  LEFT  MFTEF 

002 35. 000 

2 2 2 

3 

0 1 5 o 

! 2UITP6CTI0N 

002 25. 1 00 

229 

3 

0150 

E67F 

6=6  6M*  ”7F  5 

00226. 000 

24  0 

}: 

0 1 52 

4F 

C=MI  ! EXPON  OF  RESULT 

fin 2 J7. 000 

241 

2 

0 1 5 2 

76 

6=*: 

0022-2.  000 

242 

3 

0154 

£66  0 

6=6  6M*  “ 6 0 5 ! M62K  OFF  SIGH 

00222. 000 

24  2 

2 

0 1 5c 

El 

6=6  OF  C 5 

00240. OOo 

244 

0157 

El 

Hi_  = TI3 : • 

00241 . OOO 

245 

2 

0156 

77 

MEM  • Hl  > =65  • SIGN  i-  EXPON 

0 i.i 242 . OOO 

24  c- 

0 1 5 9 

E?i*  5 

0 02' 4 : . OOC 

247 

1 

0 1 5 - 

EM*I 

00244. OOO 

24  2 

1 

0 1 5 2 

£5 

td:=hl5 

00245. OOO 

24  9 

1 

0 1 56 

£3 

HL=Hl*M  5 

00246. OOO 

250 

1 

0151 

11010 OL 

*E=6TEMP  SUM • 1 > 5 

00247. OOO 

£51 

1 

0 1 5E 

0606 

B=8* 

00242. OOO 

2,e-.2 

1 

0 1 6 0 

‘ *0000 

C6LL  TP6MI  D6T65 

0m24 - . OOO 

£5 

1 

0162 

cl 

Hi_=tq:  ; 

00250. OOO 

254 

1 

0 1 64 

.19 

RETUPN5 

00151 . OOO 

j^C 

1 

016? 

<< 

00252. OOO 

25c 

1 

0 1 65 

00252. OOO 

1 

0105 

LEFT  JUSTIFIES  M NUMBER  RMCKED  TUD  DIGITS 

00254. 0 ii  0 

25: 

1 

01  c 5 

PER  BYTE  IN  M STRING. 

Ci 02 55.  OOO 

25- 

1 

016  5 

0025c . OOO 

2>  0 

1 

Cl  1 r.  5 

input  i « b.te:  in  number 

00257. 00 C 

2d 

1 

0165 

hl  pdintef  td  mmmti::m  of  number 

0025: . OOO 

2c-2 

1 

0165 

i 

0025 9.  OOO 

26  2 

1 

0165 

RETURN  B « OF  DIGITS  SHIFTED  LEFT 

002c  0 . 00 0 

264 

1 

0165 

QF  «FF  IF  NUMBEF  IS  MLL  ZEROS 

100 


00 2' c l . 000 

28? 

1 

018? 

> > 

002 82 . 00 0 

23c 

1 

018? 

E? 

LEFT  JU ! T : T0I*Hl5 

002c-  • . 000 

237 

1 

0 1 88 

1 8 0 0 

iixo;c«0! 

1 

0183 

OE  00 

002c- 4.  000 

233 

1 

0188 

?8 

E*85 

002c?. 000 

23? 

1 

0188 

18 

HL=HL*DE5 

00288.  000 

270 

1 

018C 

28 

HL=HL-1?  ! POIMTEF  TO  Mil* 

002*7.  ooo 

271 

1 

0181' 

7E 

CHK  NEXT "BYTE!  A*MEM'HL>5 

0u28c  . 000 

272 

1 

018E 

8*85  ! SAVE  8161 T 

002c-?.  000 

27  3 

1 

0 1 *F 

E8F  0 

8*8  8N8  ssFO?  ! OFF  MSB 

00270. 000 

274 

1 

0171 

IF  ZEPO  THEM 

002T1 . 000 

27? 

1 

0171 

C 288  0 1 P 

BEGIN 

00272. 000 

273 

2 

0174 

OC 

c*c+i; 

00273. 000 

277 

2 

0175 

78 

«*d; 

00274. 000 

278 

2 

0178 

E80F 

8*8  8ND  «0F5  ! H8SK  OFF  LSD 

0027?. 000 

27'? 

3 

0178 

IF  ZEPD  THEM 

0027c-.  000 

28  0 

£ 

0178 

C 288 0 1 P 

BE6IM 

00277. 000 

28 1 

3 

0171 

OC 

C-C+15 

00273. 000 

232 

£ 

01  7C 

28 

HL*Hu- 1 5 

0027?. 000 

2 3 ? 

0171' 

05 

8=8-15 

0 02 : 0 . 0 0 0 

284 

t; 

017E 

IF  ZEPD  S NUMBER  IS  ZEPD 

002 : 1 . 000 

23? 

3‘ 

017E 

C 23501 P 

THEM  BEG I M 

002 r 2 . 000 

233 

4 

01:1 

Oc-FF 

8*::FFS 

0 0 2 3 3 . 0 0 0 

237 

4 

012? 

El 

Hi_  = Tu 1 5 

0 '.2:4. 0 0 0 

233 

4 

01  34 

:? 

PETUPM5 

0 02  : ? . 0 0 ' : 

2 3 ? 

4 

013? 

EM8 

0:  2:2.  OOO 

2 ? 0 

2; 

013? 

C 381' 01 P 

EL  IE  GOTO  CHf  ME.  T BYTE* 

f-  • '2'c  7 . 00  0 

281 

3 

0133 

EM8  5 

l'i  |"|  ' ; V . i’l  1*.  r. 

2 ?£ 

1 

0133 

END* 

/•»i2r  "l’i 

2 ? 3 

1 

0133 

Hu  IS  BYTE  WITH  MSB.  C IS  « DF  81  GITS  TO 

0o2?0. 000 

2?4 

1 

0183 

B8  MOVE 8 LEFT.  E II  TDT8L  « OF  BYTES.  >» 

002  ? 1 . 000 

2?? 

1 

0133 

4 37? 

MOVE  LEFT : 8*E 5 8=C  5 

ft 02  ?2 . OOO 

2"?3 

1 

0138 

87 

8=8  8M8  85 

0 2 ? 3. OOO 

£ ?- 

1 

0131 

IF  ZEPD 

002?4, OOO 

2?: 

1 

0131 

C 282  0 1 R 

THEM  BEGIM  ! ALREADY  LEFT  JUSTIFIED 

i.-02  OuO 

3 

013E 

08  0 OE  1 

8*0 5 Hi_  = TDI  5 

ijC*.:  -*c  . oOO 

300 

£ 

0 1 ? 1 

C 8 

RETURNS 

r i.  -2  *•“ . 00  0 

3 • l 

1 

0 1 ?2 

END  5 

i.-.  ^ . mui 

: 02 

1 

0182 

IF 

P8PS  ! 81 VIBE  BY  2 

I..02  -*  - . i " " 

3 0 3 

1 

0183 

F? 

td:*8fl8g;s  • save  carry  indicating  move 

0 0 ; 0 0 . 0 0 0 

304 

1 

0184 

! D88  NUMBER  DF  8IGITS  LEFT 

00301 . OOO 

30? 

1 

0184 

1 *<  8-  NUMBER  DF  BYTES  TD 

00 : 02 . OOO 

?0c 

1 

0184 

S BE  FILLED  8T  LEFT 

0 0 . >.  ; . 0 1.!  IJ 

: 07 

1 

01  ?4 

c? 

TO:*B.:s  • B « BYTES*  C « DIGIT!  SHIFT 

00 ; "4 . OOO 

30: 

1 

018? 

Oc 004F 

8*05 C *85 

0 0 2 0 : . o o o 

3 0 ? 

1 

01?! 

545B 

D*HS  E*L  5 ! SOURCE  BYTE 

oo 2 Oc  . ('Oil 

310 

1 

0 1 88 

08 

HL*HL4-BC5  ! DESTINATION  BYTE 

0 0 ; i‘  7 . n f 1 0 

31 1 

1 

01  ?I 

•:  1 

bc=td:s 

lill'  1.;.,  II I I 

312 

1 

01 

73 

8*B  5 

00 : ooo 

31  3 

1 

01  ?r 

07 

rLC  5 ! MULT  BY  2 - TOT  « DIGITS • 

o 110.  ft  o o 

3 M 

1 

01  -E 

?1 

a*8-.:s  s digit:  to  be  shifted 

00  111. ooo 

313 

1 

fll  ?r 

414F 

8*C  5.1*85  • i:  DIGIT!  SHIFTED*  FOF  RETURN 

00  ‘ 1 2 • 0*  0 

31c 

1 

0181 

F 1 

MOV  ME'.'T  BYTEs  8FL8G:*Ta:!  — 

•ft 


0031 5. 000 

317 

1 

OIF18 

F5 

td:=aflag: j 

0 0 2 14.  (i  0 0 

31  3 

1 

01i=«3 

IF  CAPPY«1 

m 0 2 2 f. . 0 0 

31  3 

1 

0 1 h 2* 

D8B801F 

Them  BEGIN  ! MOVE  L : r-  OF  10URCE  BYTE  TO 

«'<  (• 3 1 r . 0 0 0 

31 0 

l1 

l'  1 rl* 

1H 

A*MEM  • I'E  f • ! M : r»  OF  I'E  2 T I NAT  1 DM 

BYTE 

0 0 317.  0 0 0 

3c  1 

£ 

01137 

£6  OF 

Fieri  AND  i:  OF : 

00 21 000 

3£  £ 

£ 

01  fir- 

070707 

rlciplcjplciflci 

I- 

01 13<2 

07 

0031  '■*.  000 

3£  3 

1 

01  AD 

77 

MEM  <HL>  *fr. 

0 0 3£  0 . 0 0 0 

3c  4 

1 

OlrlE 

or 

C*C-1 S 

0 0 2-Z  1 . 0 0 0 

-•  ;.e( 

£ 

01  flF 

emu 

u 0 "21' . 000 

3c  c- 

1 

01AF 

C3Fc-  01P 

ELCE  BEGIN  • MOVE  ZYTE 

00 2-£  2- . 000 

3 £'7 

£• 

01  BE 

1 Ft 

A*MEM ' I'E>  ! 

00384.  000 

388 

£ 

01B3 

77 

mem  chl>  *a; 

003£5.  000 

38. 1 

z- 

01  £4 

OHOI> 

c«c-i;c«c-ii 

003c:*.  000 

330 

1 

01B* 

END: 

00 3c 7. 000 

331 

1 

01  Be 

CAD  00  IF' 

IF  ZERO  THEN  GOTO  ZERO  LEI'* 

00  *■£  3.  000 

3 3 £ 

1 

01  BF- 

IF 

DE=DE-1 : 

0 0 2 £ 3.  0 0 0 

■■ 

1 

01 1:  <3 

FI 

AFlA»?:=TD2S 

0 0 3 3 0 . 0 0 0 

3 34 

1 

01 FF 

F5 

TD2  *AFLAG  2 » 

0 0 331 . 0 0 0 

335 

1 

o i £•: 

IF  CAPPY«1  ! MOVE  Mil-  COUPCE  BYTE 

TO 

0 0 3 31. 0 0 0 

33c- 

1 

o i f : 

I'£CC  OIF 

THEN  BEGIN  ! LED  OF  DEITINhTION 

BYTE 

i f.  - 3 3 _ 0 0 1 . 

337 

£ 

0 IFF 

1H 

A*MEM  • I'E  • S 

00 334. 000 

331 

1 

0 1 C 0 

EcF  0 

A=A  AMD  »Ff«; 

00  3 35.  00  0 

3 3 - 

1' 

oici 

Or  Or  OF 

PPC  • PPC  ! PPC  s F F •: : 

1* 

0 1 2 5 

OF 

0t  2 ?£••  00 1 

34  0 

£ 

01  Cc 

Be- 

A=A  OF  MEM' ML'S 

fi  2*7.0  0 •'* 

341 

: 

01  2 7 

77 

MEM • He • *h: 

»'»»'<  ' - . 00 1 

•■4  ~ 

J 

01 C? 

<2  AD  0 0 1 F 

IF  ZEPO  THEM  GOTO  2EPD  L2I'* 

• ; 4 0 . 0 0 ' 

344 

1 

0 1 3 C 

END: 

0 0 2 41, 0 0 0 

345 

1 

01  CC 

£F 

= 1 • 

or  2 4 £ . o o o 

34c 

1 

0 1 >2 1' 

C 3«31  OIF 

GOTO  MOV  N£:  T byte: 

00  2 4 3 . 000 

347 

1 

01  DO 

FI 

ZEF'O 

LID:  ftFLFiG:=TO;s  ! FI  » BYTE:  TO  BE  ZEROED 

ij 0 ;44  . oo  0 

34  = 

1 

021*1 

i37 

A=A  AMI*  A: 

0 . 2 45. 0 0 0 

34  3 

1 

01  I'E 

ME>'T 

ZEFO:  IF  ZEFO  • ::  LEFT  JU1TIFIEI 

O'-  * 4 c . 000 

350 

1 

01 18 

C £1-701 F 

THEN  BEGI’- 

00347. 000 

351 

£ 

01B5 

El 

He  = TD2«  ! CLEAF  STAC* 

OC  2 4 2 . 0 1 0 

15  £ 

£ 

Oil": 

c? 

F'ETUPm: 

O'!  34  r.  0"" 

35  2 

1 

011-7 

END: 

0 2 5 0 . 0 0 0 

354 

1 

one 

£B 

Hw*HL“15 

00351 . 000 

355 

1 

01  vs 

3600 

M€M'HL»*0: 

00351 . 000 

35  c. 

1 

01  tin 

3D 

H=m- 1 : ! NUMBEF  OF  LOI  REMAINING 

TO 

00353. 000 

357 

1 

OlI'F 

! BE  ZEROED 

i"!  354.  0 0 0 

35: 

1 

01 1- 1 

•2  3 I'E  0 1 F 

'3D TO  NEXT 'ZERO* 

00355. 000 

25_  m 

i.i 

OlI'E 

EMI-. 

o 

effzjf:. 

0 

1 2 h . - 3 0 

“ . £ 

3 

7'i*. 

11  £>2 

l£s  34 

30 

•2  Hr  flE  T l 

T£ 

u«EL 

<s  0 1 c I- 

£ 

71  830 

re*  -it 

E ! 

TEF'MHL 

::  0 fi  OE 

re-:  t 

E:  tefual 

::  0 0 OF 

i*£  c p-  a 

LABEL 

«01 4F 

L [ 


102 


e:  :pon 

LOCAL 

**000I» 

£8 

l£c 

e::pom  r iff 

local 

-0001' 

cT 

£3  88 

31 

117 

ff-  ai»i* 

ENTPV 

“0000 

£4 

?? 

l : IG  NJM  FT 

LOCAL 

- 00  OB 

£7 

33  5 A 

3£ 

71 

31 

•34  1 1£ 

1££ 

148  'I 

EXTERNAL  **OOOA 

3.0 

left  juct 

ENTPV 

**0133 

£4 

£13  £33 

1 

M 'S'16'  NUM ' PT 

LOCAL 

**0009 

£3 

35  57 

60 

69 

7? 

88  35 

150 

158 

130 

133  £0? 

££  7 

MDv'  me::t  byte 

LAIEL 

**  0 1 A 1 

313 

343 

MOVE  LEFT 

uABEL 

**0138 

• 

£95 

riE  :t  ZEFD 

LABEL 

**  0 1 1*£ 

34  3 

I HI FT  BYTE 

L ABEL 

**0031: 

1£S 

CI5N  CHEC* 

LABEL 

**  0 0 B 

14  3 

113  131 

temf  : um 

LOCAL 

**  0 0 0 0 

l-i 

111  lc4 

138 

155 

13*. 

1 3c  £08 

£50 

TP  fit*:  BATA 

E TEF'MAL  **00  OB 

30 

3 3 1 £8 

141 

133 

£5£ 

tram:  lata  left 

external  «oooc 

30 

118  174 

TfANCFEP 

t-ABEL 

« 0 03 r 

1££ 

38 

ZEFC  uCL 

LABEL 

**•  0 1 1'  0 

347 

331  343 

ZEF'O  MEM 

EXTERNAL  **0001* 

31 

143 

BCAl-80/85. £. 3 

7e>'  11- 

£3  1£*35*38 

1 

; 


B-ftL-SO  8f..  fi- 


rs 11  8c-  18*?5«44 

(•  EPPOP’t  0 MHPMINS:.  ;EE  0 


rOUFCE  FILE 
OBJECT  FILE 
00000. 1 00 
00000. 800 

0 0 0 0 0 • 3 0 0 
00001 . 000 

00005. 000 

00004. 000 
0000*. 000 
0000c*.  000 

= 

x 

1 

4 

c- 

s 

1 

1 

1 

1 

1 

1 

1 

1 

10  fiSWHLT  I»I V. EI'T-0 
lO.fil  WHLT  t IV.  of  .1-0 

0141  iCONTPOL  NHME s FF  I* I V 

0000  ! $C  DM T POL  NOLliT 

0000  $C0NTR0l  Li:T*INMEPLI'T,TfttLE*CRO:: 

0000  <L< 

0000  ♦*  *• 

oooo  .*  division  »« 

0000  .»  *♦ 

” - - — — — - 

— ’ - 

00009. 000 

to 

1 

0000 

00010. 000 

1 1 

1 

0000 

PIVIDES  TUG  EIGHT  PYTE  <£  DIGITS  PEP  PYTEY 

00010. 100 

lfi 

1 

0000 

KI*  NUMBER!.  EhCH  NUMBER  COHTHltr.  H NINTH 

0001 1 . 000 

1 3 

1 

0 0 0 0 

BYTE  WITH  THE  IIGN  FlNP  EXPONENT. 

0 0 01c. 0 0 0 

14 

1 

0000 

THE  OUDTIEHT  13  OF  THE  IfiME  FDFM. 

0001 3. 000 

lc- 

1 

0000 

00014. 000 

lc 

1 

oooo 

INPUT  BE-  1 : T Mill.?  OF  III  VI  : OF 

0 0 01*.  000 

17 

1 

0000 

Hu-  1 : T A Blip  DF  BIVIBENB 

0 0 01c-.  0 0 0 

IS 

1 

0 0 0 0 

BC-  1 : T PPDF  OF  C-cCT  I ENT 

0 0 016. 1 00 

IS 

1 

oooo 

OOOlc . 800 

cO 

1 

0 0 0 0 

OUTFIT  Hi.-  1 : T rtl'I'F  GF  OUDTIENT 

oooi r. ooo 

cl 

1 

0 0 0 0 

00018. 00 o 

1 

0 0 0 0 

H-IVJI-EHX--17  FVTEI--  LEftt-  O-MftHTItSfi 

f.  'iOi  3.  0 > 1 0 

* 3 

1 

0 ••!•  0 

a®  dividend-  FGi.LDi.iEi'  r,  s byte: 

0001  r1.  010 

fi4 

1 

0 0 0 0 

o-  z£pz:. 

00 01 l 00 

:•* 

1 

oooo 

piviidf ■ io  byte:--  divizor  fight 

00 Cl  'r-.i'OO 

fi<: 

1 

oo  oo 

JUIT1F1EP 

0 0 08  0 . 0 0 0 

£ 7 

1 

0 0 0 0 

f I*  I VI  IGF  • ? BYTE  I - - MrtHTIIlH  DF  DIVIIGF 

000c 1 . 000 

8c 

1 

0 0 0 1 1 

:hi ftei1  i digit  left *1*1  vi ; of  . io- 

OOOfi i . ooo 

3.'  5 

1 

0 0 0 0 

DIVIDEND  F T ■ £ BYTE:--  ftDDP  OF  p IV I DEMI' 

000c  4.  00'! 

30 

1 

ooo  o 

OOOfi*. ooo 

31 

1 

oooo 

EPPOP  OUTPUT  FOP  BIVIBE  BY  ZEPD 

0008'c  . OOO 

33. 

1 

0 0 0 0 

0 0 087. OOO 

]_ 

1 

iTiTiTfi 

0 0 0 3 1 . 0 0 0 

34 

1 

oooo 

EHTPY 

DIVIDE! 

0003c. OOO 

3* 

1 

0 0 0 0 

0 0 0 :•  3 » 0 0 0 

3c 

1 

oooo 

uDC  f*fi 

KDIVIDEMD-  17- . BIVIIGP'.10>.  UBIVISQP  vS»  * 

00034.000 

37 

1 

oooo 

DIVIDEND  PT  <2>  # BYTECOUNT.  DIGITS! 

00035. OOO 

33 

1 

oooo 

0003c-.  OOO 

}:  5 

1 

oooo 

EVTEPNhl. 

tppn:  bptp'left.  eppof  out,  zphce. 

00037. OOO 

40 

1 

oooo 

ZEPD  MEM-  LFiPGEF-  DEC  SUB-  TRHNI  DGTh! 

0003: . OOO 

41 

1 

0 0 0 0 

0003 u • OOO 

4c 

1 

0 * • 0 0 

£224  OOL.  DIVIDE! 

DIVIDEND  PT *HL ! ! SftVE  DIVIDEND  POINTER 

00040.  Of**- 

4*; 

1 

ooo:- 

cl  05 00 

Hi.*- 5-1 

0004 1 . 00 0 

44 

1 

000c- 

OS 

Mi_  = ni_.Bi:  ! ! MID  OF  C'UDT  IENT 

0004c. OOO 

4C 

1 

0007 

E*- 

to:*hls  ! \ EEP  C'UOTiEra  poihtep 

0"  044  . 1 01' 

4*- 

1 

0 0": 

c 1 1 1 OOL 

Hu*-»'i'  i vi : op  s 

00044 . c 00 

4 r 

1 

0 0 0 I 

Oc  0 - 

B*s: 

0nh44 . 300 

4 5 

1 

oo  or 

■ I'OOOO! 

-:hwL  tphn:  i.hth:  !bivi:op  into  biviiop  peg 

00 04 4 . 4 0» 

4- 

1 

Ool  " 

•'C  "1 

B*1 * ! Mil  of  DIVIIOr 

104 


00044.500 

50 

i 

001c 

COO  OOO. 

CAlL  ZEPO  MEMS 

t oefo  h;b  of  mviiof 

00045. 000 

51 

i 

0 0 1 5 

u508 

B«i! 

! OEFD  ? l:B  OF  H'IVJIiENB 

01"1 04-  . ooo 

5c 

i 

0017 

5 1 0 0 0 Oi. 

HL  * *'f  I' I VIDE  HI'S 

0 0 04  7.00  0 

57 

i 

0 0 1 5 

C 1.0000 

call  zepo  mem; 

0004 : . 000 

54 

i 

01,1 1- 

05  o 7 

B*$. 

• TFAtOFEF  MANTII'A  OF 

0 0 n4  00 0 

55 

i 

001  F 

5 Ac  4 o C'L 

Hl*IUV1I>ENI.  FT! 

! IlIVlIiEHIi  INTO  e MIB 

0 0 05  C . 0 0 0 

5 c- 

i 

0055 

EB 

be  ==  Hi_ ; 

! OF  KDIVIDEMD 

00051 . 000 

i 

0 05  5 

1 5 

be=i>e*i: 

! LID  OF  DIVIDEND  MAmTIHA 

0005c. 000 

55 

i 

00c  4 

5 1 03  001. 

HL  * •>'*  DIVIDE  til*  • *7 

*;•  mz:t  :i a 8 byte:  kdivid 

ML 

0 0 0 51.0  0 0 

i 

0057 

C I'  0 0 u 0. 

chul  tpan:  data 

; 

0005S.  1 00 

50 

i 

008  m 

3e>00 

ME  M * HL  >*05 

! 0 MSB  OF  ^DIVIDEND 

00054. 000 

51 

i 

00£C 

05  08 

B«3S 

! SETUP  KDIVIZOF 

00055. 000 

55 

i 

OCi£E 

81 150  OL 

HL-MIVISOPCI)  ! 

0005c*.  000 

5 7 

i 

0051 

Et 

I'E  <*=  Hl  • 

00055. 000 

54 

i 

0055 

i:  it  ooi. 

hl=*..  mvi  :df! 

00055. 000 

55* 

i 

0055 

•i  i'  o o o o. : 

call  tram:  data 

LEFTS  ! HD  I V 1 1 OF*D I V 1 1 OF 

0005?.  1 00 

5C' 

i 

0055 

• MAtiTIllA  ♦ 10 

0 0 05  0 . 0 0 0 

57 

i 

0055 

5E  0 ? 

A®?; 

! BYTE  COUNT  OF  QUOTIENT 

00051 . 000 

55 

i 

005m 

5885 OOL 

B.TE  COUNT =AS 

00055. 000 

53 

i 

00  5 11 

5E  0 0 

ft«0«  ! VftL IJE  OF  I'15IT:  OF  CUFFENT 

00057. 000 

70 

i 

0 0 5F 

3557 OOL 

bigit:.*:  • 

BYTE  OF  QUOTIENT 

000c  4 . 000 

~i 

i 

0045 

05  0 : 

ZEFO  Ii I V I : OF : B«?i 

! CHEO  F OF  0 I' I V I : OF 

00055. 000 

i 

0044 

51 15 OOL 

HL**I>1VIC0F  ■ 1 ■ i 

0 0 0 c 7 . 0 0 0 

7 : 

i 

0 04  7 

Be 

ZEPO  CHEO  s A=A 

MEM • HL • S 

0 'I'  05 : . 0 0 0 

74 

i 

004.7 

5 5 

HL=Hu ♦ 1 ; 

0005 OhO 

75 

i 

0 04  ? 

Of 

I = I - 1 : 

»'< u i‘ 7 1' . OOO 

75 

i 

0048 

154700? 

IF  HDMZEFZ  THEM 

GDT2  ZEF'C  CHEO  s 

fit.  071 . 000 

77 

i 

0 "41 

87 

a= a and  a; 

I :et  flag ; 

0007c. 000 

75 

i 

004£ 

IF  OEFO 

• D I V I CD?  11  ZEF'O 

00 07 r . 000 

7?* 

i 

0 4 E 

C 551  00? 

Them  IE 5 IN 

00074. 000 

50 

5 

OOf  1 

0177LF 

b<:  *::FFrn 

i :et  hll  I'EC  ft:  s sign 

0 o » 75. OOO 

71 

0054 

117777 

BE*«7?77! 

! HLL  7 : O'.'T 

00 075. 000 

5 c 

5 

0057 

1 1*  o o o 0: ' 

CALL  E??0? 

out  ; 

00 07 7. 000 

55- 

• 

005“ 

•:  ? 

petupn; 

00075. 000 

54 

1 

0051 

end; 

0007?. 000 

55 

1 

0051 

}•  fr.  o op 

GOTO  til"  OF  BYTE!  ! 1 IT  BYTE 

Oh  o 7 c • 000 

5c 

1 

0 CT'E 

3m cc ool 

Mir  OF  BYTE:  h.B.'TE 

COUNTS 

00057. 000 

A 7 

1 

0051 

5r» 

A= A- 1 ! 

0'J054.  000 

do 

1 

0055 

1 6005F 

D= 0*  E*AS 

00035. 000 

8? 

1 

0055 

i'l  oooou 

HL-i4I'IVIBENI>! 

00035. 000 

90 

1 

0058 

18 

HL-HL+BE:  ! 

KBIV1BEMB  BYTE  W-  16TH  MSB 

00057. 000 

81 

1 

005? 

El 

HL  ' ==  I'E  : 

00057. 000 

85 

1 

OOe-fl 

El lBCGL 

HL  = i'»  I* IV HOF'S 

0007?. 0 0 0 

U *•; 

1 

0051' 

OeO? 

B=?: 

000? 0 . 0 0 0 

?4 

1 

005c 

•loo  ooo;: 

CALL  LAPGEF  S 

! F X CF  LAFGEF 

0 0 0 80.  1 (•  o 

5^, 

1 

0075 

05 

B-B-Ii 

0 0 0 ? 1 . 0 0 0 

1 

0 07  5 

I?  MOMZEF'O 

• MHNTirif.  OF  BIVI'DF  .LE. 

i.OO?:  . 00 1 

-i7 

1 

0 0 7 5 

. H r4?.  00?' 

then  begin 

! MVI  BENI 

0 *•  i - ‘ . 0 0 0 

5 

1 1 1 • 7 . 

5 15  7 0 OL 

Hu=i'B  1 »3 1 T : ; 

fl  I'l  1 1 -4 . 000 

8? 

5 

i • 0 7 '•* 

5E  1 0 

A*;:  1 OS 

• HBI  l"  BECIMHl  TO  MC’IT: 

»>0.. 4:  . 0 *' f 

1 On 

0071 

7 c 

h=A^HEm • Hu ' 

s 

Oi..n-c  . 00 0 

1 0 1 

i.ij7C 

57 

I.AAS 

0 0 o ? 7 . 00  0 

io: 

5 

0 0 71' 

77 

MEM* Hu  * *AS 

! 1 AVE  DIGITS 

ft*B.TE  COUNT; 
ft*ft- 1 S 

D*0?  E*fts 
HL  * i'l  I'  I V I I'E  MI' « 

HL=HL*I»E;  ! POINT  TO  MINUEND 

B*H?  C*L*  ! .POINT  TO  DIFFERENCE 

DE*Q» DIVIIOFS  ! SUBTPftHEND 

ft*?S 

CALL  DEC  -UBS 
GOTO  MID  0?  BYTES 
ENDS 

:YTE s A*i.T£  COUNT? 

a*a-i ; 

D*0?  E*ft5 
HL*^  DIVIDENDS 

HL*HL*DE;  ! * DIVIDEND  BYTE  W 15TH  MOD 
HL  ==  DE  S 
HL*i'DI  VIIOF  • 1 • S 
B*?s 

r Hi_L  LAPGEF 5 ! PICT  LAPGEP 

B*B- 1 s 

IF  HDfCEFO  ! MftNTi::ft  OF  D I V I : OF  .LE. 

THEN  BEGIN  ! DIVIDEND 

Hi_*«‘DIGI T I s 

MEM • Hu • *MEM  ■ HL  • ♦ 1 5 ! INCFEMENT  LII' 

hi* BYTE  COUNTS 

r1=H-  1 : 


007 E 3A5500L 
00:1  3D 

005c  1500T-F 
00?*  510000L 
0055  1? 

005?  444 1' 
00:1  111  BOOL 
U05E  3E0? 

0 0 ? 0 CDOOOO'' 
00?:  C3T*E00P 


00 0??.  000  105  5' 

0 0 0 ? ? • 0 0 0 104  5 

001 00. 000  10*  5 

0 0 1 01. 0 0 0 1 Ot  5 

0)101.  000  107  5 

00 1 05. 00 0 10?  5 

0 o 1 04 . 0 0 0 1 0 ? * 

0010*. 000  110  5 

001  Ot-.  0 Ill  5 

00107.000  11c  5 

0010:. 00 0 113  1 00  ?5 

0 10?.  0 0 » 114  1 0 0 ?•:  3 A5'5  0 OL 

001  10.  000  11*.  1 00??  3D 

001  1 1 . 000  1 15  1 00?A  16005F 

00115.00 0 117  1 00?D  510000L 

00113.000  11:  1 00 AO  1? 

0 0114. 0 0 0 11?  1 0 Oft 1 EB 

0 f.  1 1 * . t • 0 0 1 5 0 1 0 Oft5  5 1 1 5 0 Ou 

0 0 115.0 0 0 1 £ 1 1 0 Oft*  05 0? 

001 1 7.  mi 0 lie  1 00ft 7 CDOOOO,: 
00115.000  153  1 OOftft  0* 

fi  Oil?.  0 0 154  1 0 Oft  I 

...  1 i 0 • 0 0 1 • 1 c‘*  1 0 Oft  1 Cft*  C 0 OF 

0 1.»  1 i 1 . 0 o 0 lie  5 u Oft E 51 5 7 0 OL 

• 0155. 000  157  5 001  1 34 

it i.  155.  0 0 0 lc'5  5 0015  3ft5'5  00L 
0'15“.0i.i  1 i'ft  5 001*  31 

,n  l £;,!•>  • 1:0  c.  001  r lt-OOT-F 

0"  1 £ ? . 0‘  1 :1  5 00£  - 5 1 0«>«.i.;_ 

0 01  3 * 1 . 0 0 0 1 :5  5 0 0 K 1 ? 

if.  1 ?l . 0»  0 1 • 3 5 001 1-  444I- 

0 1 35. OCU  1:4  5 0 o l f El 

: 3 5.  1 • • • 13”  5 00!  f 5115O0l. 


ft^*i'>  DIVIDEND*. 

Hu *«».♦!•£!  ! POINT  TO  MINUEND 

B*hs  :*lS  ! POINT  TO  DIFFEPEKE 

DE  =*  Hw S 
Hu **D1 VI I OF  • 1 • 5 
Hu  * = DE  s 

ft*  ?s 

•:  ftuL  dec  :ubs 

GOTO  LID  0”  BYTES 
ENDS 

He* TO IS  ! CUPPENT  DIGIT  OF  QUOTIENT 

ft*DIGI T I s 

MEM ' HL • *ft!  ! STOPE  DIGIT:  IN  QUOTIENT 
ft*0; 

digit:*!?:  • initialize  digit: 

ft*BYTE  count; 
ft=ft-  1 ! 

BYTE  COUNT *ftS 

IF  NONZEFO  ! DI/1I10N  NOT  COMPLETE 

THEN  BEGIN 
He  =Hl -IS 

TC I *hl  • ! CUPF-ent  f:VTE  Or  OUOT1EK 

GOTO  MID  OF  B.TES 
ENDS 

TO:*HuS  ! LII*  OF  QUOTIENT 


1 17.  0 » 141  1 001  I El 

1.  0 1 3 : . 0 " 1 145  1 0 0 1 D 3ft 5 7 0 OL 

001 3?. 000  143  1 00D0  77 

001 3?. 100  144  1 00D1  3E00 

001  3?.  5' 00  14*  1 00D?  3S5700L 

0 1;  1 4 1.  . 0 0 0 1 4 r 1 0 0 D •*  3A55  0 OL 

U».  141.001.'  147  1 OOD?  31 

00145.000  14:  1 OODft  3555 0 Oe 

• • t ♦ 1 4 3.  O'  1 14 ? 1 OODD 

O*.  144. 0»  i.  ITo  1 OODD  ChE*OOF 

00 14*  . O'"  1*1  5 OOEO  5B 

0014-  • 00'  1 *5  5 O0E1  E*1 

• 1 I 4 “.m  1 IT)  i 00E5  C 3**c  0 »'F 


106 


00151 . ooo 

157 

1 

00E9 

19 

HL=HL^IiE5 

001  SI. 000 

If* 

1 

OOEh 

7E 

h*MEM  1 Hu > S ! MIF  Dr  QUOTIENT 

00  IS’ . 000 

If  9 

1 

0 OE  I 

M? 

ftNI»  m • ! I ET  FLHGI 

001f4.  (ipi'i 

1 * 0 

1 

0 OE  C 

IF  ZEPD  ! Mill  OF  C'UDT  IENT  = 0 • C'UDT  IEMT 

0 0 Iff.  0 u i t 

lei 

1 

OOEC 

C£01 01P 

THEM  BEGIN  ! DF  MHHT I II-HI  1.0; 

0 0 15*.  0 0 0 

It-* 

£ 

OOEF 

5451' 

B»Hi  E=l  1 ! SHIFT  Fill  BYTES  LEFT 

On  If.?.  000 

i*: 

£• 

0 OF  1 

11 

BE-BE-1S 

0 0 If:-.  0 0 i 

1*4 

£• 

OOF  £ 

0*0* 

B*88  ! BYTE  COUNT 

0 0 If'.  0»* it 

l*f 

£ 

OOF  4 

1 Fi  5H1FT 

BYTEs  H=MEM*r»E'* 

0 1 1 1 c 0 . 0 0 0 

1 S* 

£• 

OOFf 

77 

MEM • Hu ' *H« 

001? 1 . 000 

1*? 

* 

OOF* 

1 1 

DE  = r*E  - 1 s 

1 1 r £ . 0 0 

lee 

£ 

0 Or  7 

*T 

Hu*HL-l ! 

oo  ooo 

1*4 

* 

OOFS 

Of 

B=B- 1 1 t DECREMENT  COUNT 

001  *-4. 000 

170 

£ 

OOF  9 

C2F400F 

IF  NONZERO  THEM  GOTO  SHIFT  BYTE* 

0 0 1*5. 0 0 0 

171 

c' 

OOFC 

! FILL  BYTES  SHIFTEB  LEFT 

001  **.  000 

1 7 £ 

£' 

OOFC 

0*  0 0 

B*0!  ! HI' I'  0 TD  EXPONENT 

n 0 1 r 7 . 0 0 0 

1?3 

£ 

(K'FE 

EMI' 

n i.:  l f i.inn 

174 

1 

0 OF  £ 

C S 1 Ft  0 1 F 

EL  I E BEGIN  ! C'UDT  I ENT  .GE.  1.0 

0 0 1 c ?• . 0 0 0 

1 7f 

£ 

01  01 

El 

Hl  = TO:i  ! LSI'  OF  C'UDT  1 ENT 

0 0 1 7*  0 . 0 0 0 

17* 

£• 

01  0£ 

Ef 

td:=hls 

00 171.00 0 

1 77 

£ 

0 1 0 £ 

Ff 

to:=f<flf"?:  : • save  ist  bigit 

001  7* . Ot 

1 7 • 

£ 

01  04 

5451' 

I'=M ! E=L! 

fi  oi?;.  o o i • 

174 

£ 

(i  1 Oe 

0*0* 

B=  *• 

0 0 1 ?4 . 0 0 fi 

1*0 

£• 

0 1 0 * 

C Ii  n o o o 

ChlL  TFhm;  IihTh  lefts 

ooirt. ooo 

1*1 

01  01 

1 1 0*  0 0 

DE*<sOOOc  5 

On  17* . ooo 

1 **' 

£ 

01  OE 

1 4 

HL»Hl*I'E-.  • MSB  DF  QUOTIENT 

i r i ? ? . o o r. 

i * ;• 

£ 

01  OF 

FI 

Hr  LM* I - TD I • 

o 0 1 T : . 0 0 n 

1 *4 

£' 

0 1 1 0 

E*UF 

HSM  HmI'  a OF 5 ! MhII  OUT  Mir 

■ • 1 ? 9 . 0 0 r 

1 :f 

f 

Oil* 
0 1 1 f 

070707 

07 

PLC  • F i—  C • F'LC  • F'LC  • 

0.  I.l  I I 1 

1 

£■ 

0 1 1 e 

F* 

Fl— Ft  OF  MEM 'ML'!  ! PUT  1ST  I' I'?  IT  »' 

i i . • oo 

1*7 

£ 

0117 

7? 

mem'Hl'=F'!  ■ PEMFtin inc-  quotient 

001 **.  OOO 

1$  = 

f 

0 1 1 * 

l’l»;.  I.l  1 

B=  1 1 ! SFiv’E  TD  Ftl'I  1 TD  EXPONEN 

'• . 1 : ; . * • ' • 

1 *- 

1 

0 1 1 * 

EMI'S 

• : 1 4 . o i • ■ 

1 4.;. 

1 

01  11=1 

*111 OOL 

Hi_*i‘I'I  I :of  : 

* * ” i*  1 1 

01  11' 
01  IE 

EF 

£h*  4 OOl 

Hl  ==  he: 

HL=n  v'II'EMI'  ft: 

i : . - . i* . i . 

1 =*£ 

1 

i>iil  f 7.  Or li 

r* : 

1 

0 1 * 1 

lM 

h=MEM  ' I'E  • s 

0 01.;  ; . 0 I,*  0 

1 ‘-4 

1 

01** 

EF.7F 

h=h  HNI  ;:?" S ! MH1I  OUT  EXFDM  DF  I' IV 1 CDF 

0 0 1*4.  0 (i  0 

I9f 

1 

01  £4 

4F 

C=HS 

001 ?o. ooo 

14* 

1 

01£f 

07 

plc; 

00191 . ooo 

1 4? 

1 

01£* 

Ee-BO 

ft»Fl  FtNI'  Bpr.'S  ! MFt:i  DUT  SIC-N  OF  EXPDN 

00 1 . OOO 

1 4:= 

1 

01** 

FI 

01  C!  ! P BIT  EXPON  Or  I'lVISDF 

0 0 1 r* ; . 0 0 0 

1 ?f. 

1 

01*4 

4P 

C«HS 

0 Til  ft 4 . 00 C 

* 0 0 

1 

0 1 £h 

73 

h=F:S  ! EXPDN  FhCTDP  FPDM  1'IVIiIDN 

i 01  f*f . ooo 

*01 

1 

01*1 

91 

H=H-C  S 

On  1 9* . OOO 

£0£ 

1 

01£C 

47 

B*FN  ! SP'v'E  IN  B 

00 1 ft?.  OOO 

c 0 * 

1 

0 1 cl' 

7E 

HsMEM-HL > * 

r .i  l - f . 0 h i* 

£ "4 

1 

r 1*E 

E *7F 

A.H  Fit'll  »7F*  ! lift  SB  OUT  EXPDN  OF  HI  VI  BENI' 

O'.'  If*-,  on. 

£ 0* 

1 

o i ; r 

4 r 

i>h: 

0 i.»i  i n'  . 0 0 n 

c.  Oe 

1 

r.  l . i 

».'7 

r'i_C  S 

i i i l . i • f 

a or 

i 

nl  :••£• 

Ee 

rtsH  n't*  «*ot 

•'".•*  Oe  . On n 

£ O E 

1 

o i :•  4 

Fl 

A«ri  OF  Ci  ! S BIT  EXPON  OF  BIVIBE  MB  — 

L 


r 


T* 


1 


107 


| 

1 

I 


r 


00503  . 000 

5 Or* 

01  35 

80 

H = A ♦ BI 

00c 04. 000 

cl  0 

01  36 

E67F 

A=A  AND  ::7F5  ! 

■ exponent  of  OUOTIENT 

00505. 000 

51 1 

0133 

47 

D*Ai 

0 01' Or  . 000 

515 

01  39 

1H 

A=MEM  > DE > • 

00c  or. ooo 

51? 

01  3A 

HE 

A=A  XOF  MEM  • HL  * * 

00c' Or'.  000 

514 

01 3t 

E68  0 

(3=8  AMD  «80i  ! 

MASK 

OFF  SIGH  OF  G'UDTIENT 

0 05  Or*.  0 0 0 

£15 

0130 

to 

a=h  of  bs  • 

3 1 GN 

't  EXPDN  OF  QUOTIENT 

0021 0. 000 

51* 

01  35 

El 

h»_*to::  ! 

5 LSD 

□F  QUOTIENT 

0 05 11.0  0 0 

517 

01  3 f 

77 

MEM  < HL  t =A« 

0 05  15.00  0 

518 

014  0 

C 9 

return; 

! Hu. 

- Lit  OF  OUOTIEHT 

00213. 000 

519 

o 

0141 

EMI*. 

0 

ERRORS t 

0 URPNIMGS.  SEE  0 »• 

►♦♦♦ 

BlAL-80^ 

'85.2. 

3 

73' 

1 1 - 56 

12845*31 

t i'TE  COUNT 

LOCK*. 

::  0 056 

37 

68 

36 

103 

114 

1 53 

146 

148 

I*  EC  CUt 

EXTERNAL 

8 00  OF 

40 

111 

i m 

1'IGITC 

LOChl 

8 0057 

37 

70 

98 

156 

145 

145 

DIVIDE 

ENTRY 

::  0 0 0 0 

34 

45 

1*1 '.'I DEMI*  FT 

LO'CFL 

**0024 

37 

45 

55 

195 

I'lv'l  C3F 

LOCFil 

» 0 0 1 1 

36 

46 

65 

75 

150 

1 35 

190 

FRRDF  OUT 

external 

::  0 0 OB 

3'=i 

* DI'  IDEM! 

lOCFl 

::  0 0 0 0 

36 

C I 

5 

39 

1 06 

117 

131 

r DI  'IIOR 

LDS  Ml 

» 00  IB 

36 

64 

95 

1 09 

„r»r  *c.r 

EXTERNAL 

::  it  u OE 

40 

94 

1 55 

u I D u-  B i'TE 

LABEL 

:j  0096 

114 

133 

85 

MCI*  OF  t.TE 

LABEL 

B005E 

86 

112 

153 

SHIFT  I i'TE 

LABEL 

::00F4 

165 

170 

I FAS  E 

external 

::  0 0 OC 

39 

TRANS  DATA 

external 

!*  0 0 1 0 

40 

48 

59 

tram:  data  left 

EXTERNAL 

::  0 0 OA 

3 9 

65 

180 

SE  c 0 S h£  C f 

LAI  EL 

::m;t47 

SE£0  I'l-’ICDF 

LABEL 

s»0O45 

71 

rERO  HEM 

external 

!!  00  OB 

4 0 

50 

53 

F:Aw-50  85.5.3 

78  1 1 

56 

15*46 ; 30 

108 


ECPL-80  85.8.3  78  11  88  18:48:38 

(i  eppop:  • 0 uapming:.  :ee  c 


source  file 

s 

in  2:  WmlT  MULT 

. EI'T-0 

□EJECT  FILE 

= 

Ii*  2 ! WML T MULT 

.DBJ-0 

0 0 0 01.0  0 0 

1 

1 

OOF  I' 

1C0HTPDL 

NAME=FP' MULT 

i'i  i'i  ft  Oi . 0 0 0 

2 

1 

0 0 0 0 

•BCONTPOL  noli:t 

00002. 1 00 

3 

1 

0 C»  0 0 

SCONTFOL 

L I i T . I NNEPL I ? T * TABLE  * CFOS C 

0C002. £00 

4 

1 

000  0 

0 0 0 0 3 • 0 0 0 

5 

1 

0 0 0 0 

<< 

i'i  i i i'i  04 . 0 0 0 

6 

1 

On  00 

PEF  INTEL  USER  I LIBRARY  PROGRAM  MANUAL* 

0 0 0 0* . 0 0 0 

7 

1 

0000 

HPPIu  1 ?77 • PROGRAM  BP  1 4 BY  RENAULT  C. 

00008. 000 

S 

1 

0000 

00007. 000 

9 

1 

0000 

MOEIFIEE  FDR  6ENER8L  USE  AS  8 BS8L  FLDfiT- 

00008. 000 

10 

1 

0000 

ING  POINT  SUBROUTINE. 

0000?. 000 

1 1 

1 

0 0 0 0 

0 0 0 1 0 . 0 0 0 

12 

1 

0 C'  0 0 

i'i  0 0 11.0  0 0 

1 ? 

1 

C'  Ci  0 c 

♦ ♦ 

♦♦ 

00018. 000 

14 

1 

0000 

♦♦ 

multiplication  ♦♦ 

0 0 01  ?.  0 0 0 

15 

1 

0 0 Ci  o 

♦♦ 

♦♦ 

00014. 000 

It. 

1 

0 0 0 0 

0 0 0 16.  0 0 0 

17 

1 

0 0 1 • C' 

0 0 0 1 7 . 0 0 0 

12 

1 

0 0 0 0 

multiplie:  tog  floating  point  numbep:  with 

0 0 i'i  12,0  0 0 

1? 

1 

0 0 0 0 

Ml  AMI  N2  BYTE  MANTI::a:.  A FLOATING 

0 0 0 1 ? . 0 0 0 

20 

1 

0 0 0 0 

POINT  NUMBEF  OF  THE  IhME  IIZE  IS  RETURNED. 

0 0 0 1 ? . 01  0 

21 

1 

0 0 0 0 

0 Cl  0 1 ? . 02  0 

2' 2 

1 

0 0 0 0 

INPUT  EC  FRQEJCT  F’QINTEF 

0001  0?0 

2' 

1 

0 0 0 0 

BE  MULTIFLIC AND  POINTER 

0001 ?. 04  0 

24 

1 

Ci  0 C*  Ci 

HL  MULTIPLIED  PD  INTER 

0001?. 050 

;.e r 

1 

0 C C.i  0 

0001  ?.  O':  0 

2> 

1 

0 0 0 0 

OUTPUT  HL  PPDEUCT  POINTER 

0 0 Oc  0 . (i  0 0 

27 

1 

0 0 0 0 

0 0 Oil  1 . Ci  0 0 

22 

1 

0000 

0002c..  000 

2? 

1 

0000 

EMTF  . 

MULT • MULT  BCD*  TRAN?  DATA*. 

00027. 000 

30 

1 

0 0 0 0 

III  u£-  : . 00  0 

?1 

1 

0 0 Ci  c* 

Ci  0 02  f* . 0 0 i'i 

32 

1 

0 0 C 0 

E:  :tepn*l 

LEFT  ju:t.  zero  mem: 

Ci  0 0 ? 0 . 0 0 0 

53 

1 

i'i  0 0 0 

EuUf-TE 

M 1 = ?.  N2=?: 

000“  1 . 00 C‘ 

34 

1 

0 0 0 * 

Guapftu 

M'JL T I PL  I Ef  ■ ? • • MUL T I PL  I C AND  •10*5 

00032 - 000 

55 

1 

0 0 C.i  C' 

;_d:p. 

> mltcand • ? ' : 

000??. 000 

36 

1 

0 0 0 0 

2uOI.nL 

PR0DUC  T • 1 6<*  * 

00034. 000 

37 

1 

0 0 0 0 

LOCPl 

LEFT  RT ' PF • INDEX <£>  5 

00 035. 000 

38 

1 

0000 

0 0 0 36 . Ci  0 0 

?? 

1 

0 0 C*  0 

r 5, 

MUL  T : 

T0:«BC5  ! PRODUCT  POINTER 

I'i  0 0 “ 7 . 0 0 0 

4 0 

1 

0001 

E5 

TOI^Hui  ! MULTIPLIER  POINTED 

0 Ci  »!•  ? . 0 Ci  0 

41 

1 

0002 

2 1 0?  OC'.? 

HL  *i>MUL  T I PL  I C AND  • 

0 Cl  0 ‘ , 0 Cl  1 : 

42 

1 

ooo* 

060? 

E=  ?: 

OCi 04 n.  00 * 

4? 

1 

0007 

•:  OF  4 0 Of 

CftLL  TPPN : EPTP:  • lohi  multiflkpne 

0004 1 . 000 

44 

1 

00  Oh 

1*1 

i>e=to: 1 MULTIPLIER  POINTER 

00042 . 000 

45 

1 

0 0 0 1 

2’  1 Ci  Cl  I'i  I'|i2 

Hl*8MULT  IF'L  I ER: 

l‘iCih4  . 000 

4«: 

1 

CiOi.'E 

Ot  0 r 

B*?5 

I'i'  it 4 4 . Cl 0 Ci 

47 

1 

0 0 1 0 

1 DF  4 I I Of 

cpll  tppn:  eptp:  i lope  multiplier 

ft  Ci  04  5 . 00  C 

42: 

1 

01'.  1 : 

: i":  ci  of 

C PlL  MUuT  EC  I-: 

IIIM.4-  . 00 0 

4? 

1 

0 !.•  1 •: 

Cl»-  1 2 

0 hii4  7.  00 C 

50 

1 

0 0 1 •: 

212  3 0 in? 

HL=8FR0ElUCT'7'!  • POINTEF  TO  8 MCE  OF  PROI^ 

0 0 04  : . 0 0 0 

51 

1 

001! 

Cl'f  ('(•(' 

CALL  LEFT' JUST!  ! B-  wFF  IF  ZERO 

o«;  ''-4  - . o 

» :• 

1 

(1 0 1 E 

! DF  MUM  I*  1 6 1 T I MOVES 

i . O'  * 

5? 

1 

00  JE 

04 

8*1 ♦ is 

"ml  ?■  1 . out* 

54 

1 

00  IF 

IF  ZERO  ! PRODUCT  i:  ZERO 

000 jc . 000 

1 

(•OIF 

C £21*00? 

THEM  BEGIN 

ooo?: . ooo 

*ir. 

£ 

OOcE 

El 

hl*td:;  • pointer  to  pposuct 

00 0?*4 . ooo 

£ 

00c  3 

08  0 3 

8*3! 

000? 5. 000 

58 

£ 

0025 

c I'oooo: 

CALL  ZERO  MEM i 

000?": . 000 

5=. 

£ 

00£  8 

1 1 F7FF 

DE=  -3: 

000?. 7 . OOO 

80 

(•Oil 

13 

Hu*HL+SE!  ! POINTER  TD  PPOI'UC  T 

OOO?: . 000 

81 

£• 

OOE'C 

C3 

RETURNS 

i;  ».".•?•  3.  000 

8£ 

1 

Oni  I' 

EMI'S 

0 0<te0.  000 
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39 

1 

0 0 Oc* 

IF  NEGRTIVE 

f 1 0 0 it 0 n 

4 0 

1 

000c 

F C*  OF  0 (»F 

THEN  EE E I N ! SOFT  OF  NEGftTIVE  NUMEEP 

Or* ii4  0.  000 

41 

£ 

0 0 05 

01  CC  IF 

BC.wEFGeS  ! SET  EECIMftL  POINT  « SIGN 

00  04  1 . 0 • » 0 

4c 

£• 

0 0 o 5 

1 1 cc  cc 

I.E«»eEEEl  ! FILL  G'S-  NEE  SOFT 

0004c . 0 00 

4: 

£* 

oooi 

C Ii  0 0 0 0. 

CRLL  ERROR  OUT: 

0004  ; . 0 

44 

2 

00  OE 

r j 

RETURNS 

111.1(44. 000 

45 

1 

00  OF 

ENE! 

III  '.'4^  . 0 l.l  1 

4r 

1 

00  Or 

E87F 

H=h  RNIi  «7F: 

mi  04c  . O'*  1* 

47 

1 

ooi ; 

C 5 

TOS«EC8  ! PESULT  F'OINTEF 

mhm47. 00! 

4-5 

1 

001  : 

E5 

TD>Hl:  ! POINTER  TD  NUMBER 

0004 • . 000 

49 

1 

001  3 

07 

PLC : ■ 

00049. 000 

50 

1 

0014 

87 

8*8  RMI'  8 S 

00  05  1 . 000 

51 

1 

0015 

F c 1 ? 0 OF 

IF  NEGMT1VE  THEN 

C8PPV*  NOT  C8PPVS 

1 

0016 

2F 

0005c . 000 

K ■. 

1 

0019 

IF 

PRFS  ! 

EIGHT  PIT  EXPONENT 

00056.  000 

56 

1 

00  1H 

87 

8*8  RMI*  8 i 

00054 . 000 

54 

1 

0 0 1 1 

FclFOOF 

IF  NEGATIVE  THEN 

CMPPY.NOT  CAPPVS 

1 

0 0 1 £ 

3F 

00054. 1 00 

c c 

1 

0 0 1 F 

! 

SIGN  NEGATIVE 

00055. 000 

56 

1 

00  IF 

IF 

php;  f 

EXPON  DIVIDED  BY  8 

00056. 000 

— 

1 

008  0 

1 1 OOOOL 

DE..PDDT  1 ! 

00057. 000 

56 

1 

0 06  6 

E£: 

DE  ««  HLi 

00056. 000 

5? 

1 

00c  4 

77 

MEM 'He -*8i  ! 

PLACE  EXPON  IN  P00T1 

00059. 000 

60 

1 

0085 

13 

DE*DE*1 1 

OOOcO. 000 

61 

1 

0086 

£8 

HL«HL* 1 S 

00061.000 

66 

1 

0087 

0808 

B-85 

0006c . 000 

66 

1 

00c  2* 

CIiOOOOX 

C8LL  TP8n:'I'8T8J 

! MOVE  'M-  INTO  P00T1 

0 0 Oi  6 . 0 0 0 

64 

1 

OOcC 

El 

next  poot8<  hl=to:: 

00064. 000 

65 

1 

0080 

E5 

to;=hls 

00065. 000 

66 

1 

008E 

1 1 0 0 0 OL 

DE=8F00T1! 

00 066. 000 

67 

1 

0061 

0 1 0 6 0 Ol 

BC.JF0DT8! 

00067. 000 

66 

1 

0064 

r i>  o 0 o o 

CALL  divides  ! 

0UDT1EMT  iiPDDTc*  1 HL> 

00066. 000 

6? 

1 

0067 

06  0 2 

B«3S 

00069. 000 

70 

1 

0 0 6 ? 

8 1 Or  0 ML 

HL=6?DCT1 *6 • 5 

00070. 000 

71 

1 

0062 

1 1 OF  0 OL 

nE«*F0CT8’e/ ; 

0007 1 . 000 

7£ 

1 

00  6F 

c i*  o o o o:= 1 

C 8lL  L8P6EP5  ! 

p.irFF  IP  P0DT1.P0DT8 

0007c'.  000 

72 

1 

004  c 

04 

E=I* 1 S 

00076.  000 

74 

1 

004  6 

IF  ZEPD  ! 

M8MT I 2 282  28ME 

00874.  000 

75 

1 

004 ; 

C 850 OOP 

THEM  I:EC-lH  ! 

CDMP8PE  EXPDMEMT: 

00075. 000 

76 

c 

004r: 

68  0 0 0 Ol 

A=FOOT 1 ! 

0 i.i  075.5  0 0 

77 

6 

0 04  ? 

81 090 ML 

Hu  = *'PDCT  c • 

00076. 000 

76 

6 

0 0 4 c 

ME 

8=8  ,0F  MEM • HL ' • 

00077. 000 

7? 

c 

0040 

IF  ZEFO  • 

NUMPEF  THE  SAME 

00076. 000 

60 

6 

004 11 

C c 51'  OOF 

THEM  BEGIN 

! PDDT1  II  PE2ULT  6 OPT 

0007?. 000 

61 

2 

0050 

El 

HL=TD2 I ! 

CLEMP  POINTEP  TO 

0 0 0 - 0 . 0 0 0 

6 c 

2 

005  1 

i 

□PI  61  URL  NUMBEP 

0006 1 . 000 

66 

2 

0051 

El 

hl=to: : 

! PE  CULT  POINTEP 

0006c . 000 

64 

2 

005c 

E5 

td:=hli 

00062 . 000 

C;Ct 

2 

005 

1 1 00  0 OL 

0E=vFQCT1 

i 

00064. 000 

66 

2 

0056 

060? 

B*?l 

000r5. 000 

67 

0 056 

C 1*0000. 

C 8i_l  TPRH 

: ' H8T8: 

00086. 000 

86 

3 

005P 

El 

hl*td. • 

! POINTEP  TO  SOFT 

00067. 000 

6? 

2 

005C 

c? 

PE TUP MS 

00066. 00 0 

90 

6 

0051' 

EMI'S 

00062*.  000 

?1 

1 

0051' 

END: 

0 0 0 ? 0 . 0 0 0 

?6 

1 

0051* 

01  lc'OOL 

B*:=6TEMF  SUMS 

0 0 0 ? 1 . 0 0 0 

9 6 

1 

0060 

1 1 OOOOL 

DE=8PD0T1S 

0 ■ 1 1 1 r*c‘ . 0 0 ' * 

94 

1 

oo*i : 

8 1 09  0 OL 

HL  = i*PDDT  6 • 

0 0 0 ? 2 . 0 0 0 

*5 

1 

0066 

C IiOOOO. 

CALL  FF  ADI'S  ! 

HL  = i'T£MF  ' SUM 

00064. 000 

'• 4 C, 

1 

0 Oe  ? 

1 175 OOP 

DE.JTWDI  ! 

r. I V 1 SOP*  6.0 

000 ?5. ooo 

?7 

1 

006*2 

01 OOOOL 

PC«*F00T18 

00 0 ?*:  . 000 

96 

1 

006F 

*2 1'  0 0 0 0. 

C 8l.l  I'IVIIiE;  ! FI  MI'  THE  8VEP86E  FDF  6 NEW 

000? 7 . 000 

?? 

1 

0076 

i 

e:timmte  OF  THE  soft 

ft  0 0 ? :• . 0 0 0 

1 00 

1 

007c 

c'i.  i.i  up 

•?DTD  HE:  T PDCTc  • 

000?: . 1 00 

101 

1 

0075 

0 1 0 0 0 0 

TWO:  DP  «01 « o.  0>  0>  0.  o.  0*  1 

.::80SI  FLOMTING  POINT  8. 

115 


rr 


1 0078  000000 
1 0071  000080 


0 C Or*.-,  0 0 0 1 03  0 

o o re 

ENI». 

♦ ♦♦♦♦ 

0 effdf;. 

0 WARNING 8. 

:ee 

F : Hi -80  85. £.3 

7S  11-  c‘c- 

1 3: 00:48 

DIVIDE 

EXTEPNHl 

wOOOC 

34  ci 

88 

e*rd*  nijT 

EXTEF'NFtL 

ttOOOIi 

34  41 

Ft  aoi. 

EXTEF-NftL 

s:OOOB 

84  85 

uARGER 

EXTERN*!. 

«OOOE 

35  72 

NEXT 'R0DT8 

LABEL 

S002C 

84  100 

RDOT  1 

LDCiiL 

« 0000 

ej— 

88  7 0 

7fe 

85  88 

87 

FOOT  8 

LOCAL 

“0008 

8 8 87 

71  77 

34 

:C'FT 

ENTRY 

::  0 0 0 0 

temf  :ur 

37 

LDC  HL 

wOOl  8 

TF  »=»*< : I'!=»T«=I 

external 

w 0 0 Oh 

84  8 8 

87 

T 

LABEL 

«0075 

101  88 

i:hl-;o  S5.i.3 

78  1 1 88 

13:  01U4 
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*****  (i  epfof:.  o wapming: . :ee  o »♦•*• 


SOUPCE  FILE 

s 

14  8:W*LT  PR  I NT.  EI'T-0 

31 JECT  FILE 

= 

14  8*  WmLT  PRINT. DBJ-0 

OOC'Ol . OOO 

1 

1 

0057 

00001’ . 000 

8' 

1 

0000 

V.OHTPOl 

nrme*  output: 

0 0 0 0 2- . 0 0 0 

3 

1 

0 0 C'  Ci 

IJCONTPOL 

MOL  1 : T 

00004. 000 

4 

1 

0 0 0 0 

SCOMTFDL 

li:t. immepli :t.taele«cpd:: 

0 0 0 0 ?• . 0 0 0 

z 

1 

0000 

00008.  000 

£ 

1 

0 0 0 0 

ENTRY 

PRINTOUT.  ERROR  OUT*  2 PRC E » 

OOOOi  . 1 00 

7 

1 

0 0 0 0 

PP1HT  I'ELAY.  DELAYS 

oooor. ooo 

s 

1 

0000 

00003. 000 

Ci 

1 

000  0 

EGUhTE 

PRINT  RDV  * CR800; 

00008. 1 00 

10 

1 

0000 

ECU3TE 

OUTSEL  ■ oBOOOi 

0000'?.  ooo 

1 1 

1 

0 0 0 0 

EOUftTE 

DEC-SIGN  POL  out  * «7700i 

0 0 0 1 0 . 0 0 0 

18 

1 

0 0 0 0 

EOUftTE 

BCP  S3  DOT  * o£300S 

0001 1 . ooo 

1 8 

1 

Ci  0 0 0 

EC'C'mTE 

BCI'  1 0 OUT  = »3700i 

0 0 01c. 0 0 0 

14 

1 

0 C'  C'  0 

EOUPTE 

BCD  ?•  4 O'JT  = »5800* 

0 0 0 1 8 . 0 0 0 

1? 

1 

0 0 0 0 

0 0 014.  0 0 0 

1* 

1 

0 0 0 0 

0001 ooo 

17 

1 

0 ».» 0 v 

0001 e. ooo 

18 

1 

0 0 0 ci 

0 0 017.  0 0 0 

1 ? 

1 

0 0 0 0 

I HP UT 2 

B-  1 1 GN . r.RTR  PQLftRITY.  * DEC  PTC 

0 0 0 1 i . 0 0 0 

80 

1 

0 M i'1 0 

C-  8 M2 1*  Or  OUTPUT 

0 0 01  ? . 0 0 0 

81 

1 

0 0 0 M 

I'-  3 CENTEP  DIGITS  OF  OUTPUT 

0008 0. OOO 

88 

1 

0 0 0 0 

E-  3 LSI'  OF  OUTPUT 

000c 1 . 00 0 

8' 8 

1 

1.1  l.l  !-• 

OOOcc . OOO 

84 

1 

0 0 0 0 

Ol.'Oc  2 . OOO 

8?. 

1 

0 0 0 0 

PRINTOUT: 

00 Me . . 1 MM 

ct 

1 

0 0 C>  i ■ 

ERROR  OuT : 

O'"' Oc 4 . »>O0 

87 

1 

0 0 0 1 

33001  0 

me  m • out 

:EL'=h;  ! DFF  BUI  GIVEN  TO  8010 

0 0 "e  ?• . *1  0 0 

88 

3 

0 o 0 8 

7? 

risEI 

! 8IGN.POLRF  I TV  $ DEC  PTC 

O'' 08?' . 1 OC 

8 ? 

1 

Ml.'  "4 

E£ff 

M = M . □? 

i:FF!  ! COMPLEMENT 

0008c . ooo 

80 

1 

0 1'  Or 

88  0077 

MEM  -DEC 

2 I Gfi  F Dl  Out  ■ =R! 

01.  087.  00* 

2 1 

1 

0 0 0 ? 

79 

h=C  • 

i 3 m:i 

0 »'  • 08  7.10  0 

88 

1 

(i  OOP 

EEFP 

r=r  :op 

::FP!  ! COMPLEMENT 

Ocif  8 : . OOO 

1 

0002 

88  0 0?' 8 

MEM'EU' 

? 4 O'JT  > *R. 

0008'?.  OOO 

84 

1 

00  OP 

7R 

H=H! 

! 8 CENTER  DIGIT! 

0008  ?. 1 00 

8? 

1 

0 0 1 0 

EEFF 

h=r  .:of 

::FPJ  ! COMPLEMENT 

0 0 0 8 0 . 0 Ci  0 

88 

1 

001c 

88 0 088 

MEM  ' PCI' 

3'  £■ OUT i *AS 

00081 . OOO 

87 

1 

001?' 

7E 

ft=E  ! 

! 3 LSI' 

00081 .100 

33 

1 

00 16 

EEFF 

A*m  XOP 

OFF:  ! COMPLEMENT 

00088 . OOO 

89 

1 

0018 

88  C' 087 

MEM  CBC I' 

10  OUT) =R! 

0002 8. OOO 

40 

1 

0011 

0 0 

MOP! 

! 1 U2 EC  REQUIRED  BEFORE  PRINT 

00084. OOO 

41 

1 

Cl  0 1 ‘2 

88  0 Oh-' 

MEM  • PF  I NT  RDV ' =R!  f PP  I NT  £ RDVRNC  E 

0002  ?'.  OOO 

48 

1 

0 1. 1 p 

CI'44  00P 

CALL  PP1NT  I'ELAVi  ! FINISH  PPINTINi? 

0 0 0 8*8 . 0 0 0 

4 8 

1 

0m88 

88  0 Ci  B 0 

MEM -OUT 

CEL • *h!  ! PTN  DPP  BUI  TO 

0008* . 1 00 

44 

1 

008?' 

! PLETHYCMQGFRPH 

00087. OOO 

4?. 

1 

008?' 

•2  9 

PETUPN* 

00!  2 : . 000 

48 

1 

Ci  08  >8 

000? r*.  000 

47 

1 

00c'6 

<✓ 

0004 0. 000 

48 

1 

00c  6 

0004 1 . 000 

4? 

1 

00c  6 

0004c! . 000 

50 

1 

0086 

SPACE.  THE  DIGITAL  PANEL  RRINTEF  -IiPF's  ONCE. 

0004?. 000 

51 

1 

00c  6 

> > 

00044. 000 

c; 

1 

00c’6 

SPACE: 

00045. 000 

*i 

1 

0u28 

32001:0 

MEM  vQUT ' SEL  > *A5  ! DPR  BUS  CONTROL  TO  8010 

0004c . 000 

54 

1 

00c? 

?E00 

*=•.00000000:  ! MEG  TPUE  OPT*  POLARITY 

ij  v 04  7.  0 0 1' 

e c 

1 

0021 

320077 

MEM- DEC  SIGN  PDL  OUT-**:  • MO  SIGNS  OP 

00047. 1 00 

5* 

1 

OOc'E 

! DEC  ft: 

0004: . 000 

57 

1 

OOc'E 

3EFF 

**»FFS 

00  04 -. OoO 

Zi 

1 

00  2 0 

?C  0 05c 

MEM  ■ BC I*  5 4 OUT  • *A : • BLftMf 

00050. 000 

5? 

1 

00?? 

320088 

MEMCBCD  3'2'0UT>«AS  1 BLAHV 

00051. 000 

60 

1 

0038 

320087 

MEMCBCB'  l-O  DUT>-fll  ! BLAH* 

0005c'.  000 

61 

1 

00?? 

00 

MOP:  S 1 USEC  BEFORE  PRINT 

0005 2 ■ 000 

6c' 

1 

003* 

?C  0 Oh ; 

MEM-PRINT  ADV-**:  ! PRINT  t ADVANCE 

00054 . 000 

6? 

1 

0031' 

•I  1*44  OOF 

C*Li_  PRINT  DELAYS  ! FINISH  PPINTING 

00055. 000 

64 

1 

0040 

32001 0 

MEM'OUT  TEL)**:  ! PTM  I«PP  BUI  TO 

00055 . 1 00 

65 

1 

004  ? 

! PLETHYTMOGPAPH 

00 05c . 000 

6c 

1 

004? 

C? 

return: 

00057. 000 

67 

1 

0044 

Oo 0*5 : • 00 0 

6? 

1 

0044 

00060.  000 

6'?* 

1 

0044 

0 0 Oc  1 . 0 0 '.* 

70 

1 

0044 

provide:  appro  500  m:ec  dela,  aftef  pfint 

000-  1 . 000 

71 

1 

0044 

command  i:  given  to  the  digital  panel 

0 0 Oc-  2 . 0 0 0 

7 c' 

1 

0044 

PRINTER '.DPR ' . INSURE 2 DATA  ON  DPP  BUS 

000c 2.1 00 

7}: 

1 

0044 

remain:  valid  during  required  printing 

00  0-  m:  . £ 00 

74 

1 

0044 

time. 

000c  4. 00 M 

75 

1 

0044 

i.m.'Oc  4 . l 00 

7 6 

1 

0044 

PRINT  DELAY: 

000c 5 . 00 0 

77 

1 

0044 

OE  05 

c«5.t  ! » OF  ICO  MSEC  DELAYS 

*-0*-66  • 0 * 1 0 

7;. 

1 

004c- 

?E64 

A=100:  ! « OF  1 MSEC  DELAYS 

C 0 Oc  7 . 0 0 0 

7? 

1 

004? 

0667 

DELAY:  B=1 35:  ! COUNT  FOF  1 MSEC  DELAY 

i'ijOc  : . i 

•SO 

1 

004H 

05 

Dull:  B*B~ 1 - 

0 0 Oc  - . 0 ? 

21 

1 

0 04  f 

■■I  £ 4m  0 Or 

IF  NONZERO  THEN  GOTO  DLY1 • 

r* »'  i • 7 r . o o « ■ 

$£■ 

1 

004c 

?r 

A=A- l : 

00.;,“*  j . 000 

62 

1 

004F 

•I  c'46  0 OF 

IF  NOtCEP'O  THEM  GOTO  DELAYS 

i.i  0 , •.  0 0 

64 

; 

005  i 

or* 

c*c-i: 

0*1 0 7 ; . 

'.c 

1 

0 05 : 

C?  46  OOF 

IF  NONZERD  THEN  GOTO  PRINT' DELAY <£> ; 

0007* . 00*. 

•2'C 

1 

005c 

c ? 

return: 

0007c-.  0*00 

67 

0 

0057 

END. 

BCAL-80  85.2.  3 


0 EPPOPC.  0 WARNINGS.  SEE 
7%'\\'ZT  12:08:53 


BCD  1 0 

OUT 

EQUATE 

«6700 

1? 

?'?*  6 0 

BCD  3 2 

OUT 

EQUATE 

s*6800 

18 

36  5? 

BCD  5 4 

OUT 

EQUATE 

«5300 

14 

33  58 

DEC  C I-3-r 

•'  POL  DU 

EQUATE 

37700 

1 1 

3 0 55 

DElA  . 

entry 

« 004-3 

7 

7?  3? 

■ 

Du  ,1 

LABEL 

::i;iii4h 

80 

81 

ENTPV 


EQUATE  bFOOO 
10  2’  * 
EQUATE  BAS op 
a 41  * 

ENTRY  BO 044 


ENTRY 


ENTPV 


120 
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' 

r 


SSftL-80 

65.5. 

75 

1 1 56  1 

3: 01*61 

ii 

EPPDP2  « 

0 MHPMIM82 . 2 EE  0 ♦♦♦♦♦ 

: dupc e file  * 

Ii»£'!MhLT  UTIL 

. ei'T- 

OBJECT  FILE  = 

IiO 5' : WhL T util 

. DFJ-0 

0 i'i  0 i.i  1 . 0 u 0 

1 

1 

0071 

Oi.iOOi.  i.i  00 

£• 

1 

0 0 0 0 

1C0NTR0L 

NhME  *util 

0000 3. 000 

5 

1 

0000 

{■CONTROL 

L 1 2 T . INMEPLIST.TmBLE.CP02  2 

00or>4.  000 

4 

1 

0 0 0 0 

! FCONTPOl.  NOL  1 : T 

OOOO?. 000 

5 

1 

0 0 0 0 

ENTPV 

ZEPO  MEM.  L8P6EF.  TP8M 2 IifiTfi  LEFT. 

0000®'.  1 00 

* 

1 

0 (1 0 0 

I'EC  AI' I'-  DEC  • SUF* 

(i  0 0 Oc  . 0 0 0 

7 

1 

0000 

00007. 000 

8 

1 

0000 

<< 

0000=-.  000 

10 

1 

0000 

0 0 0 1 0 . (i  0 0 

11 

1 

0 0 (1 0 

INPUT-  F a FYTES  TO  FE  ZEROED 

0001 1 . 000 

16 

1 

0 0 0 0 

HL  1ST  liDDF  TO  FE  ZEROED 

0 0 0 1 c . 0 0 0 

12 

1 

0000 

0001  ?.  000 

14 

1 

0000 

36  0 0 

ZEPD  MEM 

: MEMiHL>=Oi 

00014. 000 

15 

1 

000c 

5'  3 

HL*hl+1 i 

0 0 0 15.0  0 0 

16 

1 

000  2 

05 

B=F-l : 

00 (lit..  000 

17 

1 

0004 

•2  6 

IF  ZEPD  THEM  PETUPM  EL2E  GOTO  ZEPD  MEM? 

1 

0005 

•.  0 0 0 OP 

00017. 000 

15 

1 

•'.1 0 0 3 

i'i  0 0 1 000 

1? 

1 

0 0 0 2 

0001 ? . 000 

50 

1 

000: 

000c 0. 00 i 

51 

1 

000'? 

OOOcl . 000 

1 

00  05 

comfhf e : Ti.io  chhppctep  strings  pointed  to 

0005 i . ooo 

* z. 

1 

0 0 0 ?• 

F.  DE  PiNI'  Hl  Dr  f fvte:  ehch.  determine: 

000c  . 000 

c4 

1 

0 0 0 ? 

IF  He  2 TP I M«5  I'E  2TPJNG. 

000c 4. 000 

£•5 

1 

0 0 0 2 

INPUT-  F « FVTE 2 IN  E8CH  2 TP I MG 

0 0 05® . 0 0 0 

56 

1 

000? 

DE  1ST  UOC  'LSI"  OF  1ST  STRING 

000c 6. 000 

c'7 

1 

0003 

HL  1ST  LOS  -LSI"  OF  END  STRING 

000c 7. 000 

£':? 

1 

0 0 1' 2 

OOOcc . 000 

£=• 

1 

000* 

OUTPUT-  F = «00  IF  MEM • HL > • MEM • HE • 

0 0‘  Oc  5 . 0 0 0 

30 

1 

0 M 03 

F * «01  IF  MEM • He • ME M • HE • 

0 0 0 2:  0 . 0 0 0 

?1 

1 

0008 

F = s:FF  IF  MEM  • HL  • = MEM  • HE  ■ •> 

0 0 021. 0 0 0 

5 c 

1 

0 0 05 

000 i-l . 000 

55 

1 

000-2 

46 

eFiPGEP: 

C=F- 

o 0 0 5 5 . 0 i'i  i'i 

34 

1 

(1 0 0 r* 

Oc-  0 0 

B*OJ  ! DEFAULT  DF  OUTPUT 

000? 4. 000 

33 

1 

0001 

08 

HL*HL  ♦ BC! 

00033. 000 

36 

1 

OOOC 

El 

hl  ==  de; 

000?*. 000 

37 

1 

00  or 

08 

HL*HL  ♦ BC • 

00057. 000 

35 

1 

OOOE 

EF 

I'E  ==  HL  • 

000??. 000 

3? 

1 

00  OF 

£F 

ME XT  L2I 

: Hl  *HL- 1 • 

0 0 0 3 r . 0 0 0 

4 0 

1 

001  0 

IF 

I'E  = DE-1 ; 

0004 0. 000 

41 

1 

001 1 

1H 

h*MEM  HE'S 

0 0 04  1 . 0 0 0 

45 

1 

0015 

BE 

H-MEM • Hl • » 

0004c. 00 0 

4 :• 

1 

001  3 

IF  CftRF'.'l  ! MEN  ■ Ht.  • MEM  ■ DE  - 

0004 2 . 000 

44 

1 

(1 0 1 2 

I'i  1 ? 0 OF' 

them  BEGIN 

00044 . Ol 0 

4® 

5 

00  1 c 

Oc-  0 1 

F*«oi ; 

O0m4® . OOi 

4c 

£ 

0 0 1 : 

•:  ? 

PETUPM* 

00 o4c . 00 i 

47 

1 

0 0 1 ? 

END: 

00047 . 000 

45 

1 

0018 

IF  ZEPO  ! FVTE 2 THE  2mME  m 

0004 : . 000 

4? 

1 

001- 

•2c.cc'  OOP 

THEM  BEGIN 

0004 ?. 000 

50 

5 

OOM 

01* 

C*'2-l  • 

00 1»®  0.  00 0 

51 

6 

cn'ii' 

2 5 OF  0 OF 

IF  NONZERO  THEN  goto  next  lsdi 




121 


000*.  1 . 00*' 

5.3 

8 

00c' 0 

! CHECf  PEftHlUltuS  BYTE: 

0005*8 . 000 

5: 

8 

0 08  0 

Oc-FF 

B=«ff; 

00  05  ’ « (»*«*' 

5*4 

1 

008  c 

EMU 

00 Of. 4.  ooo 

e-(e 

1 

0088 

C 8 

RETURN* 

f MEM-HL'  mem • oe> 

00  05 5 . OOO 

5":. 

1 

008  : 

0005c . OOO 

1 

0083 

o*  . c 1 . 0 Oil 

5*7 

1 

0 08  3 

0 0 f 5 1 . 0 o i • 

cO 

1 

008? 

Tftv  e:  I I . TE 

: of  MEMDF  . PD  I NT E I'  On  I.  I'E 

Of.f*.  1 0 i 

81 

1 

008; 

RUP  TPfttCFEF 

: them  ihtd  £*1  byte:  foimtei 

H ' "e  V . 00 » 

K-C. 

1 

008 : 

0*.  t v ML  t. 

SHIFTING  ONE  I'lGlT-BCI"  TO  THE 

000c  1 . i.i  0 u 

8*3 

1 

0083 

LEFT.  ft  LEfttltlE  ftNIt  TRftlLlNC-  ZEPO  IS 

00 <JiZ.  OOO 

8*4 

1 

0083 

ftLLEI'.  THIS 

IS  THE  SftME  ftS  MULTIPLYING 

0006E.100 

65 

1 

00c  S 

BY  10  DECIHRL. 

000c ; . ooo 

1 

008  3 

0 i.i  i*c  4 . 0 0 • 

8-7 

1 

0083 

INPUT-  l 

::  0^  BYTES  IN  HE  PEG  STRING 

OOOe  5 . 0 o 0 

8 : 

1 

0 08  ; 

HE 

LSI'  OF  SOURCE  STRING 

00 Oc-e- . OOO 

e-9 

1 

008  :• 

He 

LSI'  OF  HEITINftTlOr-  STRING 

00 i»c  7.  OOo 

70 

1 

008  :• 

00 i.ie  : . OOO 

71 

1 

008: 

OUTPUT-  PE 

LSI'  OF  SOURCE  STRING 

v H?.(  00 

78 

1 

008  3 

He 

l:p  of  pestimhtiom  :tfing 

i,.  m i 7 r- . o 0 o 

7: 

1 

008: 

00 07] . o 0 0 

~*4 

1 

008  3 

TRftNS  LftTft  LEFT: 

00 07c . OOO 

75 

1 

0083 

El 

DE  ==  HL  * 

ooor:..  ooo 

7 c 

1 

0084 

43 

C=B* 

lift  074  . 0 li|> 

77 

1 

0085 

Oc  0 0 

B=OS 

"e . oot 

7 

1 

0087 

09 

HL=HL+BC  5 

l.ll  --  . 1.  • 1 

7? 

1 

008  r 

81 

Hl  =HL - 1 • 

! m:i«  of  source 

1.1  i 77.  0 1 

§ 0 

1 

008  f* 

El 

HL  ==  I*E  5 

I , 1 - : . 1 . 1 . f: 

.£•: 

1 

003ft 

09 

He-H^Ki 

! MSB  Or  BEST  IN*T  1014 

0 • 1.7.-,  0 0 1 

8 c 

1 

00 81 

1ft 

SHIFT:  ft -MEN  ■ I'E 

< : 

'.o’  0:  i . 0 0 11 

3? 

1 

0083 

Ec.FO 

ft=ft  ftN I*  ::F0« 

! M*:»  OFF  MSI.  DF  I . TE 

1.  ' i . i. 

84 

1 

0O8E 

OF  uF  OF 

PFC : PPC : PFC : 

RPC!  ! Mftf  £ LSI'  OF  BYTE 

1 

0031 

OF 

1 ■■  M 1 : £ . ft  mm 

85 

1 

0 0 3 c 

ic 

ft*ft  Dc  U 

! CONCftTEMftTE  l.'ITH  MSI.  OF  BYTE 

"1  I.i;  , M 1..  1. 

88 

1 

0 0 ; :• 

77 

mem • Ht • sft: 

! ITOFE  BYTE 

00*'  f 4 . 1 Ml 

:.7 

1 

00  34 

31 

He=Hu- 1 ; 

0 0 0 r 5 . 0 0 0 

83 

1 

00  35 

1ft 

ft = MEM • HE • i 

! GET  MSI'  HE  T BYTE 

1 • i.i  (1  ; c , O*.1  0 

8? 

1 

003c 

E*OF 

ft=ft  fit -l'  “OF* 

• MftS»  OFF  LSI-  OF  BYTE 

00 Or 7 . OOO 

90 

1 

00?  8 

070707 

RLC5RLC • RL'S • 

F-L'S:  ! MftK  E MSI'  OF  BYTE 

1 

0031 

07 

00038. OOO 

1 

00  sc 

01. 

C=C-1! 

! PECPEHENT  BYTE  COUNT 

00089.  OOO 

98 

1 

0031' 

IF  ZEF'D 

0 0 ij  9 0 . 0 0 1.. 

1 

0031' 

CC4C00P 

THEN  BEGIN 

000?1 . ooo 

=*4 

8' 

004  f. 

77 

MEM'Hl •= 

ft:  ! STORE  LftST  I»1  GIT 

v * 0 i.i  7^. , OOO 

95* 

8 

0041 

RETURN 

m 1.  of*.  .0 0 1.» 

98 

8 

0041 

C 9 

ENP! 

i>  1.1  ft  94.  oor 

97 

1 

0048 

47 

B=ft: 

! SftVE  MSL  OF  NE>T  BYTE 

MM  H-*  . 0011 

93 

l 

in  14 : 

It 

PE=PE-15 

i'l  l'-:  . mi.  1 

99 

1 

0044 

C 38  B OOP 

go  to  :hift; 

...  . - ; . I . . . 1 

1 00 

1 

0 "4  7 

ft  Of  -9.  1.1  M 

1 oj 

1 

0 047 

122 


0 0 1 0 0 

0 0 0 

10£ 

1 

0047 

00101 

0 0 0 

103 

1 

0047 

001  0£ 

000 

1 04 

1 

0047 

001  OS 

000 

1 OT 

1 

004? 

00 1 04 

0 0 0 

1 OS 

1 

0047 

001  OT 

0 0 0 

lor 

1 

0047 

0 0 1 OT 

1 00 

1 OS 

1 

0047 

00 1 Or 

0 0 " 

1 0? 

1 

0047 

0‘M  07 

0 0 0 

110 

1 

004  7 

0 0 1 0 : 

0 0 0 

1 1 1 

1 

0047 

001  0? 

00  0 

US 

1 

0047 

O'M  i »:• 

0 0 1. 

1 1 3 

1 

0047 

001 1 1 

000 

114 

1 

0047 

001 1£ 

000 

11? 

1 

0047 

001 1 3 

000 

1 IS 

1 

0047 

00114 

0 0 0 

117 

1 

0047 

Oi  l IT 

0 0 0 

1 IS 

1 

0047 

».«•:  i it 

1 00 

11? 

1 

004? 

CN  M 6 

0 0 

l£0 

1 

0 04  7 

Oil  17 

0 0 •' 

1 £ 1 

1 

0047 

001 IS. 00"  • l££  1 004? 

0 1.'  11?.  0 0 0 1 £ 3 1 0 04 7 C * I'E C til1 1'! 

i..  o i £ 0 . 0 0 O 1 £4  1 0 04 S 4 7 

0 v 1 £ 1 . 0 0 0 j 1 £5  1 0 04  ? A? 

001  ££.  000  l£c  1 004 A 1 A LOOP* 

0 0 1 £ I*: . 0 0 0 1 £ 7 1 0 04 1 SE 

0 0 1 £ 4 . i.‘  0 0 1 £ i 1 0 04  C £ 7 

i. '.:£-.  ooo  i£?  i 0041-  e:- 
0 0 1 £c . 0 f.  0 1 3 0 1 0 04 E 77 

...  *.  1 £ 7 . 0 0 0 1 :1  1 0 04  F £ ? 


Oo  1 £•* . O'.  0 

1 3 c 

1 

ooto  e: 

i .i.  1 £ f* . Oi 1 ' 

133 

1 

00*1  13 

Oil  30.  O'.  ' 

1 34 

1 

0 0*£  £3 

0 01:1. 0 1 ' 

1 3* 

1 

00*3  0* 

i ?£.  ooi 

1 3c- 

1 

0 0*4  f £4 AO OR 

1 . ! . O'  " 

1 3? 

1 

00*7  C 1 

0 11-4.  o 0 o 

1 3c 

1 

i.i  0 * C 3 

0 1 ' 1 ;r  . 0 0 

1 33 

1 

0 0 T 3 

0 0 ! S 7 . 0 0 0 

14'. 

1 

00*3 

Oo  1 :: : . O'" 

141 

1 

00*  3 

0 U'r1.  0 0 0 

14£ 

1 

00*3 

0 0 14  0.  0 0 0 

143 

1 

00*? 

00140. 1 00 

144 

1 

OP?? 

0 0141.  o 0 0 

14?. 

1 

0 0*  3 

III.'  1 4£  . o 0 o 

14c 

1 

0 0*  3 

0 0143. 0 0 0 

147 

1 

00*3 

in;  144. 000 

14: 

1 

00*? 

i t*  1 4T  . 000 

143 

1 

0 0*  3 

0014*  . Ov  i 

1*0 

1 

00*3 

0 . 1 4 7 . 0 0 

1*1 

1 

00*  3 

O'.  14*  . 

1 *£ 

1 

00*  3 

0 1 4 r . i » 0 

i*i 

1 

00*3 

0 01*1'  . • • • '■ 

1*4 

1 

00*  3 

*.•  r 1 T 1 . o o 

1?? 

1 

i.i  0*3 

TO:=K5  ! BEGINNING  A DDR  OF  RESULT 
B*A • ! NO.  DF  BYTE! 

ANI’  AS  ! CLEAR  CARRY 

R*MEM  • DE  • • ! TWO  DIGITS  DF  2ND  MD. 

a®a+memhl* ♦carry;  ! add  digits  df  iit  hd. 

I »AA  * 

HL  ==  to;;  ! REIULT  ADDRESS 

MEM  *HL • =Mi  • iTD&E  I .TE  DF  RESULT 

HL=H»*U  •.  INCREMENT  REIULT  ROISTER 

Hu  ==  to::  ! SAVE  REIULT  A DDF' 

DE=r*E ♦ 1 3 ! UPDATE  INDICES 

HL*HL*1 5 

b=b-u 

IF  NONZERO  THEM  50TD  LDDC'S 

BCsTD:;  ! POINTER  TD  REIULT  MU' 

RETURNS 


DECIMAL  SUBTRACTION  ♦♦♦♦♦♦♦♦♦♦♦♦♦ 

SUBTRACTS  MULTIPLE  BYTE  ‘'TWO  DIGITS  PER 
BYTE-  DECIMAL  NUMBERS  OF  THE  SAME  LENGTH. 
BATED  DN  THE  GENERAL  ALGORITHM: 


f-,  ~ V — x ♦ 33  — Y ♦ BORROW 

INPUT:  A - BYTE  COUNT  DF  EACH  NUMBER 

BC  - POINTER  Df  RESULT  ADDRESS 

HL  - POINTER  TD  MINUEND 

DE  - POINTER  TD  SUBTRAHEND 

OUTPUTS  BC  - POINTER  TO  MC'f  SIGNIFICANT 

digit:  of  result 


Ctnir.c.  c*o  r. 

I*  :• 

1 

005- 

>> 

o •>!?•: . ovn 

1 57 

1 

00*.  - 

C5 

I'E'l  :u*«  TO:«KS  ! 

BEGINNING  St'I'F  OF  PE'.ULT 

00154.  « . 

1 

1 

0 05h 

47 

B*a: 

1 

NO.  OF  b.te: 

OOJ 55.  00< 

IT- 

1 

0051 

}*7 

carry- i ; 

! 

:et  carry 

0 • l5i . 00 1. 

160 

1 

005C 

?E  ?9 

LDOOF-  • A*=«?A  i ! 

FIHI'  ?-  Df  10P  CONFLENENT 

oui57. ooo 

16  1 

1 

0 C»5E 

CEPP 

a«a+o«*carryi  f 

ba:eh  on  :tatu:  of  borrow. 

00  t . no. 

ltc 

! 

00t  P 

El 

ML  <•  **  HE  i 

! 

GET  ruBTRAHENH  AHHREt ! 

0015 1 • 000 

u: 

1 

0 06 1 

5*6 

A*A-MEM'HL'  5 

f 

rUBTFACT  CUITRAHEMH 

p(  It'.  .1  p p 

1*4 

1 

006c 

EI 

HL  **  HE: 

{ 

get  mi  hue  mi-  sm.se:  : 

00  Ik  1 . 00 0 

165 

1 

o Pc 

86 

ft»r..1'>EM  ' HL  ' 1 

« 

AJ>H  MJNiJENH 

001  6c . 00 o 

Uc 

l 

0064 

c'7 

HAA! 

0 0 1 r : . 0 0 ( 

ic-r 

1 

OPt-T 

E? 

hl<«*>td:: 

i 

RE7U.T  ADHRECC 

PPle-».  OOP 

168 

1 

0066 

77 

MEM 'HD**: 

! 

CTOS' : BVTE  OF  SEEULT 

001 . 000 

16* 

1 

0067 

88 

HL-WL+lf 

! 

incsi hemt  se:ult  sointes 

t»l>J  66.  OOO 

170 

3 

006? 

E3 

HL  < **  to:  S 

i 

TS'-T  ;"•£ : UL  T RII'F 

0 Pit'.  OOP 

171 

3 

OOr  - 

1 3 

PE=PE-1 ! 

! 

uf-I'Fpte  imhce: 

o\H6c . oOO 

*»7c 

1 

POtA 

• •: 

Hi_=HL*l i 

001 6 ?• 00* 

i7:- 

1 

00 1.1 

05 

£*£- 1-. 

00170. OOP 

174 

1 

0 0*C 

C E T C OOf 

IF  NONZERO  then 

P.DTC  lDDOCI 

00171 . POP 

175 

1 

oc-..r 

C 1 

*.:=to:s 

! 

pcimtef  to  feiult  h:b 

0017c. OOO 

176 

1 

0070 

c ? 

RETURNS 

0 0 17;-.  *1 0 0 

1 7? 

o 

0071 

EMH. 

► 0 

e rrof  : • 

o warning:.  :ee  o < 

B I AL-80 

ST.E. 

, •: 

78 

11  86 

1 :.T  06:58 

HEC  AI‘H 

ENTRY 

6 

"•0047 

1£3 

HEC  :ui 

ENTRY 

6 

*•••0058 

157 

larger 

NTRY 

"•0008 

35 

LOODF 

LABEL 

160 

“-005C 

174 

LOOP 

LABEL 

186 

t:(.tt.4A 

1 36 

ne.:t  l:h 

LABEL 

#00  OF 
51 

:hift 

LABEL 

aOPEE 

tran;  hath  left 

ENTRY 

»00£3 

74 

ZERO  MEM 

B *AL-8 0^85 .2*3 

ENTRY 

5 

78  'll 

#0000 

14  1 

£6  13s  09 

I 


BCflL-SO  '-85.2.3 


EZAl-GO  it-.i.i  ?&  11  87  15illt» 


.....  0 ERRORS*  0 UARN1N6S.  SEE  0 

I OURC E FILE  * DfZimALT  UTILl.EI'T-0 
OBJECT  file  = I>1  *r WAlT  UTIL1.QE.i-u 


0 0 0 i i l . 0 i'i  I.* 

1 

1 

0 1 hC 

0000c . 000 

£ 

1 

0000 

♦CDHTPQl  NhME=UTIL1 

00001'.  000 

3 

1 

0000 

ICONTROL  LIST.  I NNERL 1ST. TAELE  > CFOS 1 

0 0 0 04 . 0 0 0 

4 

1 

0000 

? SCONTROL  NOLIST 

00004. 01 0 

5 

l 

0000 

00004. CcO 

c- 

1 

0000 

ENTRY  BIN  TO  BCD.  INTTO'FP.  FR'QUT'FMT. 

00004. 030 

7 

1 

0000 

FP'TO  INT.  BUFFER  INS 

00004. 040 

8 

1 

0000 

00004. 050 

■si 

1 

0000 

global  temf8<g>; 

00004.  080 

10 

1 

0000 

00004. 070 

11 

1 

0000 

EXTERNAL  ZERQ'NEN.  TRRNS'DATA.  LEFT-JUST. 

00004. 080 

12 

1 

0000 

ERROR'OUT.  TRRMS  DATA 'LEFT. 

00004. 081 

13 

1 

0000 

INPUT 'BUFF.  BUFF 'COUNT! 

00 004. 080 

14 

1 

0 0 0 0 

00004. 1 00 

15 

1 

0 0 0 0 

EOUATE  POE'TRU  POLARY«0.  ALL' DEC 'PTE*\001 1 11 l 11 • 

00 004. 1 1 o 

lc 

1 

0 0 0 0 

E'Z.UAT E NEC  - 1 GN=  0 . PD  Z Z 1 CM- M 000  0 0 0 0 * 

00004. IcO 

17 

1 

0 0 0 0 

00005 . 000 

18 

1 

0 0 0 0 

0000c . 00 0 

18 

1 

0 0 0 0 

REF  INTEL  UZEP  Z LIBRARY  PROGRAM  MANUAL* 

i 0 

1 

0 0 0 0 

APRIL  1 ?77 . PROGRAM  EE  18  BY  6UNDEZTPUF. 

00007 . 1 00 

£1 

1 

0000 

NIElZ  z. 

0 0 0 0 8 . 0 0 0 

ii 

1 

0 0 0 0 

0 0 0 0 8 . 0 0 0 

£3 

1 

0 0 0 0 

MODIFIED  FOP  USE  FtZ  F.  E'ZAL  SUBROUTINE 

0 0 ij  1 0 . 0 0 0 

£4 

1 

0000 

0 v 0 1 " . 0 0 c 

if. 

1 

0 0 0 0 

00 0J4. 0OO 

£c 

1 

0000 

0 0 0 1 c- . 0 0 0 

£7 

1 

0000 

INPUTS : UNSIGNED  BINARY  NUMBER  IN  I>.  E 

0 0 017.  0 0 0 

£8 

1 

0 0 0 0 

POINTER  TO  LOME ST  BUFFER  LOC  IN  HL 

00018. 000 

£8 

1 

0000 

0 0 0 1 8 . 0 0 f 

30 

1 

0000 

OUTPUT:  C BCD  DIGITS.  TWO  DIGITS  MEM  LOC 

0001 0 . 00 0 

31 

1 

0 0 0 0 

Hl  POINT  TO  LSI'  IN  LOME Z T LDCAT1DN 

0 0 Oil . 0 0 0 

;•£ 

1 

0 0 0 0 

O' ‘Oil.  000 

1 

0 0 0 0 

o If. 000 

•:4 

1 

0 n 0 o 

0>  ‘ if . 100 

'5 

1 

0000 

UN  TQ  BCD: 

f rn£ij . O'!  *’ 

3c- 

1 

0 0 0 0 

Pf- 

TOZ=AFlAGZ  : 

00.  O'* 0 

37 

1 

0001 

C5 

to:=i :: 

i. . ill,  0 0 0 

31 

1 

000c 

05 

to:*de: 

0 0 Oc  8 . 0 0 0 

38 

1 

0003 

E5 

to:«ml: 

000 30. 000 

40 

1 

0004 

El- 

DE-«*.Hl:  ! BIN  s IN  HL-  ADDRESS  IN  DE 

00031 . 000 

41 

1 

0005 

1313 

DE“DE* I * DE«DE« 1 S ! POINT  TO  MSB 

0 ii  0 j 1 . 0 0 0 

4 c 

1 

0007 

OIFOI'3 

BC*-1  0000! 

f.  1 1 0 3|.  m 0 0 

4 3 

1 

00  Oh 

cr*3c.ooF 

CALL  DECIMAL  NUMEi  ! FIND  MDZT  SIG  DIGIT 

On 034. 000 

44 

1 

0001 

1 £ 

MEM ■ DE > =A:  • ZTDRE  DIGIT 

00035. 000 

45 

1 

OOOE 

11 

D£*DE- I : ! DECREMENT  POINTER 

I.I II Ii  . 000 

4 c- 

1 

00  OF 

01 18FC 

BC—iooo: 

00037. 000 

47 

1 

0012 

C I'  38  0 OF' 

CALL  DECIMAL  NUME!  ! FIND  SEC JND  MZD 

000  3-:  . 000 

48 

1 

0015 

070707 

PLC :RLC : RLC : RLC  * 

1 

0013 

07 

0 0 C 3 8 . 0 0 0 

48 

1 

0018 

12 

MEM ■ DE ■ =A:  ■ 

0 0 04  0 . 0 0 0 

50 

1 

00  lH 

01  3CFF 

EC --1 0 0 : 

fill 04  1 . 000 

51 

1 

001 1' 

C I*  3-:  6 0 OF' 

CFlt-L  PECIMRL 

NUME:  ! FIND  THIPD  M5D 

0 ii  04 c.  00 0 

* ;> 

1 

0060 

EI 

DE‘««>HL! 

00043 . 000 

ct  ■■ 

1 

0061 

Be- 

8=6  OF  MEW'HL-5 

(i(i 044.  00 0 

54 

1 

0066 

EE 

DE<  =*/HL* 

0004*..  000 

?5 

1 

0063 

16 

HEM  * BE ' =8i 

s :tqpe  : ec oni-  byte 

0004c-.  000 

5c 

1 

0064 

IE 

DE=DE-1  • 

' ! DECREMENT  P01NTEF 

00 047. OuO 

57 

1 

0065 

01F6FF 

EC.-lu! 

00043. 000 

Cv 

1 

0063 

CIl  36  OOF 

C8LL  PECIM8L 

numb:  ! find  fourth  m:d 

0004  3*.  000 

mtG» 

1 

00c  5 

070707 

rlcsrlc;rlc? 

PLC  : 

1 

006E 

07 

00050.  00'.' 

60 

1 

OOc'F 

|:5 

1=l=rl  OF  L! 

I MID  v LID 

00051  . 000 

61 

1 

0030 

16 

HEW  *.BE  • *8» 

! STORE  LAST  BYTE 

00053.  ooo 

66 

1 

0031 

El 

HL«TOSi 

00055. 000 

63 

1 

0033 

D1 

be-tos; 

00054. 000 

64 

1 

0033 

Cl 

bc=toc; 

00055. 000 

65 

1 

0034 

FI 

rfl8g:=to:: 

0005c-.  000 

66 

1 

0035 

C 9 

RETURN: 

00057. 000 

67 

1 

003c- 

00057. 1 00 

68 

1 

0036 

DEC  IMAL  NOME: 

0005E-.  000 

69 

1 

003c 

Mr 

A=A  XOF  A: 

! ZERO  6CCUMUL6T0F 

0005?. 000 

70 

1 

0037 

1*5 

td:«de; 

S 38VE  NEXT  DIGIT  8DDPE 3 3 

0 0 Or- 0 . 000 

71 

1 

0038 

51 

E=l: 
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54 
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1 
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IF  CflPRY=l  THEN  GOTO  DECIMhl  N'jfl  • 6 • 1 
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1 

003F 
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77 

1 
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76 

1 
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61 
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1 

0041 

66 
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1 
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III 
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81 

1 

004  3 
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SS 

1 
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0007c . 000 
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1 

0044 
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84 

1 

0044 

0007c.  600 

85 

1 

0044 

TO  FL08TING  POINT 

0007c . 3:00 

8c 

1 

0044 

0 0 0 7 3- . 0 0 u 

87 

1 

0044 

convert:  ft  pd : i t i ve  integef  -3  digit:  fef 
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88 

1 

0044 

BYTE  > TO  6 

FlOHTING  foint  number. 

00075. 000 

89 

1 

0044 

0007c-.  000 

90 

1 

0044 
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eyte:  in  integer 

00077. 000 

91 

1 

0044 

DE 

POINTEP  TD  INTEGEP 

0007c . 000 

96 

1 

0044 

HL 

DESTINATION  PEG -9  BYTES' 
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1 

0044 
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94 

1 

0044 
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POINTER  TD  OUTPUT  FL06TING 
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95 

1 

0044 
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96 

1 

0044 
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97 

1 
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1 
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C5 
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E5 
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1 04 

1 

l".'4£ 

•:  i 

k«io:  • 

0 C 0 ? 1 . i.i  i.i  l i 
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CALL  LEFT  JUITJ  <E.s:  HIGH:  IHIFTEI'! 

0 i.i  i.i  1 On 
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1 2: 

1 

0 o r 

7E 

A*  MEM • HL • S 

0 0 1 2 0 . 0 ('  0 

139 

1 

004.4 

17 

PAL* 

0 m 1 2 l . 0 0 o 
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174  1 

009f 

£.'  5 

HL  *Hl  + 1 • 

i ii  1 ft  . 000 
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00 1 8 f . »!' i.'  i 

164  1 

00*1 

FECI 

A-l  i 

i'ii.i  1 . i.OO 

lcf  1 

(H.IHr 

C£E4f'0F 

IF  ZEPD  THEM  C *‘.000001 00S 
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1*7  £ 

OOCc 

71 

h=ES 
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cl  :• 

1 

00£e 

001ft' . 000 
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£ 
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C9 
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1 
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Omc  "7 . i.i !.•  •. 

cc  r 

£ 
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